
ESTE NUMERO CONTIENE UNA SELECCION DE LOS MEJORES PROGRAMAS PUBLICADOS EN EL ORDENADOR PERSONAL 


juegos, enseñanza, aplicaciones, matemáticas, etc. 

GRAN PÓSTER: 

Con el cuadro comparativo de todos los Basic 
para poder utilizar los programas en: 

Apple, Atari 400, Atom, BBC, Commodore 64, DAI, Dragón 32, Epson HX 20, Láser, Lynx, MZ 80 A, New Brain, 
Oric 1, PET/CBM, Sord M-5, Spectravideo, Thomson T07, TI 99, TRS 80, Víc 20, ZX 81, ZX Spectrum 











GENIOS DE BOLSILLO A TUS 
ORDENES... 


Llévalos a cualquier lugar disfrutando de su 
potencia. Para toda actividad que realices: es¬ 
tudios, ingeniería, comercial, pasatiempos, 
análisis administrativos... 

Sharp ofrece en tamaño billetera la combinación ideal de una 
gran facilidad operativa, disponibilidad de programas y supe¬ 
rioridad de sistema. 


► 



PC-1245 

COMPUTADORA ESTUDIANTIL 

Basic extendido. ROM 25KB. RAM 2.2KB. 

Tedas definibles. Memoria continua. 

Compatible con PC -1251/PC-1401 Ptas. 16.700,- 

0 pe i o na 3:1 m pres oí a - m i c ro ca ssette i ntegrados. 




PC-1251 

BASIC COMPUTER. ¡SOLO 115 GRAMOS' 

Basic extendido. ROM 24KB. RAM 4.2KB. 

Teclas reservadles. Memoria continua. 

Compatible con PC-1245/PC-1401 . Ptas. 23.700,- 

Opcional: Impresora-microcassette integrados. 


DISPLAY E IMPRESORA GRAFICA 

Display gráfico 16KB ROM. Reloj; intemo. 

Basic extendido. Memoria continua. Teclas definibles, 
rmpresora-plotter de 4 colores. Telecomunicación. 


RAM 3.5KB (PC-1500) . . ptas. 37.750,- 

RAM 8.5KB (PC-1500 A) . Ptas. 52.100,- 


PC-1500A 


PC-1401 

LA CIENTIFICA 

Basic extendido. Memoria continua. 

Teclas definibles y preprogramadas 

Gran número de funciones matemáticas y estadísticas. 

Compatible con PC-1245/PC-1401 . Ptas. 21.875,- 

Op cion al: Impresora-ínter face de cassete. 




Consíguelos en los distribuidores autorizados o en: 

MECANIZACION DE OFICINAS, S.A. 

BARCELONA-36: Av. Diagonal. 431-bis Tel. 200 19 22 VALENCIA-5: Ciscar. 45. Tel. 333 55 28 

MADRID-3: Santa Engracia, 104 Tel. 441 32 11 SEVILLA-1 : San Eloy, 56. Tel 21 50 85 

BILBAO-12: Iparraguirre, 64. Tel. 432 00 88 ZARAGOZA-6: J. Pablo Bonet, 23. Tel. 2741 99 


















HABLEMOS EN BASIC 


cadas por orden alfabético. De esta 
forma, la tabla podrá utilizarse no sólo 
como diccionario de instrucción BA¬ 
SIC, sino también como tabla de tra¬ 
ducción de diferentes comandos de un 


materia! a otro. 


Puede que os hayais tirado a menudo de los pe- 
ios delante de un programa BASIC de otro ordena¬ 
dor que os gustaría adaptar al vuestro. Ya seáis 
adictos o iniciados, esta tabla que os presentamos 


Es de notar que, por razones evi¬ 
dentes de espacio (teniendo en cuenta 
el importante numero de instrucciones, 
siendo muchas de ellas específicas de 
un material}, esta tabla no es todo lo 
exhaustiva que sería deseable. Como es 
más descriptiva que explicativa, con- 


será de una eficaz utilidad. 

BASIC significa 'de base \ "lo más 
simple". BASIC es también el nombre 
de un lenguaje utilizado hoy en día 
por 6 millones de ordenadores en todo 
el mundo. ¿"El" lenguaje? Sí, en cier¬ 
to modo, pero desgraciadamente, se¬ 
gún el ordenador que se tenga, e! BA¬ 
SIC presentará una o varias caracterís¬ 
ticas específicas y por tanto conviene 
hablar de "tos" lenguajes BASIC. Para 
ayudarle a adaptar los programas BA¬ 
SIC, hemos establecido una tabla com¬ 
parativa que, para un centenar de ins¬ 
trucciones, da su "traducción" sobre 
dieciocho ordenadores personales co¬ 
rrientes. 

La adaptación de programas BA¬ 
SIC de un OP a otro no plantea pro¬ 
blemas serios en un 90% de las líneas 
de este. RUN, NEW, END, RETURÍM, 
etc... son prácticamente siempre las 
mismas. 

Bien, pero ¿qué ocurre en el 10% 
restante? Este 10% encierra todas las 
variantes, todos los "falsos amigos", 
todas las instrucciones que cambian de 
sentido, todas las posibilidades de astu¬ 
cias particulares (sin duda las más com¬ 
plicadas), en pocas palabras, todas las 
trampas" BASIC imaginables. 

Tomemos por ejemplo un VIC-20 y 
un APPLE: Al ver la instrucción IN- 
PUT de lectura sobre disco del APPLE, 
podría pensarse que se trata de una en¬ 
trada por el teclado del VIC-20, y mo¬ 
dificar consecuentemente el programa. 

El ejemplo es simple pero GET, RND, 
CLR y otros CLS reservan desgraciada¬ 
mente otras desagradables sorpresas. 

Atención a las instrucciones que se 
refieren a la memoria de vuestro orde¬ 
nador. Las órdenes PEEK, POKE, 
CALL y otras USR tendrán que ser 
práctica y sistemáticamente adaptadas. 

Los símbolos gráficos, el color y el so¬ 
nido son ellos también muy específi¬ 
cos del ordenador utilizado y, aquí 
también, se hace preferible "adaptar" 
más que "traducir" de un ordenador 
a otro. 

Por lo demás, os vais a encontrar en 
as páginas que siguen un total de cien 
rrstrucciones BASIC Microsoft clasifi- 


vendrá utilizarla en paralelo con el ma¬ 
nual de utilización de los materiales 


considerados. 


Tabla de correspondencia 

En esta tabla se reseñan las instrucciones específicas de un ordenador y su correspondien¬ 
te instrucción del BASIC Microsoft, 

Apple 

DEL DELETE 

GET INKEYS 

RENAME ÑAME 

NOTRACE TROFF 

TRACE TRON 

LN LOG 

TRACEOFF TROFF 

TRACE ON TRON 

MZ BOA 

CLR CLEAR 

MEM FRE 

GET INKEYS 

LN LOG 

BYE SYSTEM 

Alari 400 

CLR CLEAR 

CLOG CLG 

BYE SYSTEM 

GRAPHICS TEXT 

New Braln 

COL COLOR 

FREE FRE 

PUT OUT 

PEN (6) SCRN 

Atom 

CH ASC 

LINK CALL, USR 

$ CHRS 

Orie 1 

GET, KEYS INKEYS 

LN LOG 

CURSET PLOT 

BBC 

LOG CLG 

LN LOG 

BPUT OUT 

RENUMBER RENUM 

TRACEOFF TROFF 

TRACE ON TRON 

$ord M-5 

ASC II ASC 

DEL DELETE 

LN LOG 

TRACEON TRON 

TRACEOFF TROFF 

Commodore 64 

CLR CLEAR 

Dai 

ACOS ACS 

ASIN ASN 

LOGT CLG 

DOT PLOT 

Spectravideo 

PSET PLOT 

RND RANDQM1ZE 

TI 99 

NUM AUTO 

OLD CLOAD 

CALLOLEAR CLS 

CON CONT 

RES RENUM 

UNTRACE TROFF 

TRACE TRON 

Dragón 32 

EXEL CALL 

DEL DELETE 

MEM FRE 

PSET PLOT 

Epson 

EXEC CALL 

PSET PLOT 

TRS 80 modelo 1 

CINT INT 

SET PLOT 

SPACES SPC 

Láser 

SET PLOT 

POINT SCRN 

Vic 20 

SYS CALL 

CLR CLEAR 

GET INKEYS 

Lvnx 

ARCOS ACS 

ARCSIN ASN 

ARCTAN ATN 

LOG CLG 

DEL DELETE 

ROUND FIX 

GETS, KEYS INKEYS 

ZX 81 

LN LOG 

ZX Speetrum 

LN LOG 
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Hablemos en BASIC 
(explicación del póster) 

5 Editorial. 

APLICACIONES 

11 ZX-81: Rutina en código máquina para proteger 
programas en Basic. 

15 Geografía Espacial. PC-1500. 

19 TIC-TAC en VIC y en ORIC. 

26 Traductor-Monitor/Intérprete para IVIZ-80 B. 

OO Gestión Familiar, Cuando el Ordenador admínis- 
^*Otra su tesorería. 

36 Gráficos en el Osborne. 

informática de bolsillo. Cambie de base cuando 
^Olo necesite con este programa para Calculadoras 
HP. 


i Gestión de Ficheros. Mantenimiento de una 


EjQ Códigos de Barras, IMPRESORA C-ITOH 8510 

Si está perdido sitúese con un mapa y una calcu- 
03 ladora de bolsillo, 

68 BASIÑOL. BASIC en español. 

^ Ej Realizad nuevos caracteres en vuestro VIC-20. 

-j Gestión de Ficheros. Mantenimiento de un 

J. vi ^ Biblioteca. 

108 BIG PATTERN (Gran silueta). 

119 Choque Elástico. 

-| rt pr Supervisión de cuentas corrientes con un SHARI 

A^OpC-1211, 

-| OQCálculo de velocidad de Perfusión de Fármact 
107 Vasoactivos. 

145 El Ordenador y la Hi-Fi, 

^^^.Medldor de velocidad de cassette para ATOM. 
166 Programa para alta resolución en el ZX-81. 

JUEGOS 

/ El Laberinto de CANDY. 

24 QUILOPUS. 

33 El juego de NEISCAT. 


Supervisión de cuentas corrientes con un SHARP- 


jCálculo de velocidad de Perfusión de Fármacos 
Vasoactivos. 
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GRAN POSTER: 

Con el cuadro comparativo de todos los Basic 
para poder utilizar los programas en: 

¿M*. *00. Atf** QAI. Eh«o u íwfl" Lv**. WIH. Hp» 

Ote VrlTOV tord W $ Íppctr«r*í*». TQT Ts M. T «5 «. V* JO. ÍK »»V» Scnlv" 


Juego de las Siete y Media para la CASIO FX 
702 P. 


MATEMATICAS 


Integración de métodos de SIMPSON con e 
ZX-81. 


La Huida con obstáculos 


Los invasores han vuelto, yo los he encontrado 


Producto de matrices 


53 Gran Premio de PENCH ES. 

55 Programas de 1 K. para el ZX-81, 

RQ El juego del Radar, para SHARP PC-1211 


División de Polinomios 


74 0P. DEFENDER. 

79 Invasión Antártica, 

83 ¿Conseguirá el ZX-81 salvara los náufragos? 
RQ El Juego del Globo. 


•esita oivu r 

«licite ' 0 
300 pts 


Pvecio 


Pánico en el fondo del mar 


Rally de M o n teca rio, para PC-1500 


IZÓ Avión Espía, para la Ti-57, 

127 Maquina Tragaperras OP-FRUlT (Spectrum} 

133 MINIGOLF. 

IdR Programas de 1 K. para ZX-81. 


¿Espíritu estás aquí?: Los Fantasmas del Com 
modore. I a Parte. 


¿Espíritu estás aquí?: Los Fantasmas de! Com 
modore. 2 a Parte. 


?: Los Fantasmas del Com 


?: Los Fantasmas del Com 


Laberinto para MZ-80 B 


ENSEÑANZA 


Este número especial lia sido realizado a partir 
de artículos ya publicados en los números 
anteriores del Ordenador Personal. 


enseñe a! Ordenador Geografía 


Aprendizaje del BASIC en un Instituto de Ba 
chillerato. 


Las Calculadoras Programables también sirven 
para aprender. 
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DEFINITIVAMENTE, sepa dar 
solución a esas dificultades que le 
impiden un correcto 
funcionamiento de su empresa. 



PORQUE... ESTO ES 1Q QUE ANDABA USTED 
BUSCANDO 

Un sistema eficaz que la mejore, solucionando 
esas eternas dificultades: en la facturación, las 
nóminas, el control presupuestario, ¡a información, 
los mailtngs, el stock de producción, etc. y de 
hacer por tanto una más perfecta gestión en la 
actividad que usted realiza: Comercialización, 
Investigación, Enseñanza, etc. 


Y ESTO ES MAYBE 


La solución, una empresa con gran experiencia en 
la comercialización de los mejores 
miniordenadores del mercado, (casi tan rentables y 
eficaces como cualquier gran ordenador y 
notablemente más económicos). 

Maybe le garantiza un estudio en particular de su 
problema asesorándole en la compra de! 
miniordenador más idóneo, 

Maybe le ofrece un amplio servicio de Software y 
rapidez-eficacia en la atención técnica postventa. 


Maybe sabe dar la solución. 


GraL Martínez Campos, 5 - Bajo izqda. 
Tfnos. (91) 445 84 38 - 446 60 18 
MADRID-10 - 
Brusi, 102 - Entresuelo 3 o 


Electrónica y Servidos. 





Editorial 


Muchos han sido los programas publicados por el ORDENA¬ 
DOR PERSONAL en su larga etapa recorrida desde Febrero de 
1982. Numerosos también son los lectores que nos piden una re¬ 
copilación de los más interesantes. 

Ha sido difícil la tarea de seleccionar estos artículos dada la 
abundancia de equipos y preferencias de nuestros lectores. Incluso 
hemos tenido que incluir algún programa para pequeños equipos 
que no funcionan con BASIC, y ello con el único fin de satisfacer 
al mayor número posible de usuarios —entre los cuales están, no 
lo olvidamos, los usuarios de calculadoras programables—. 

En cuanto a la temática de los programas seleccionados, hemos 
cubierto principalmente cuatro grandes áreas: Juegos, Aplicacio¬ 
nes, Enseñanza y Matemáticas. 

No obstante, dada la diversidad de sistemas con BASICs más o 
menos adaptados a un caso particular, hemos juzgado imprescin¬ 
dible publicar una tabla de traducción que recoja 100 instruccio¬ 
nes BASIC Microsoft y sus correspondientes traducciones para 
22 ordenadores personales de uso extendido. Esta tabla, tamaño 
Póster, se incluye junto con el presente número. Con ello espera¬ 
mos agilizar su consulta y al mismo tiempo dar un toque de origi¬ 
nalidad. 

Esperamos la aparición de un BASIC realmente estándar, dis¬ 
ponible en todo ordenador personal. 


El Editor 





Ordenadores personales, de gestión y para aprendizaje. Dos marcas con prestigio que cubren todas las ueceadades, desde el ordenador para aprender a programar hasta el ordenador que 
resuelve los problemas de la pequeña"empresa [contabilidad, facturación. clientes), incluyendo unidades de disco flexLbte y tarjetas de expansión para adaptar á ordenador a sus necesidades. 


tjrjF 


Su computador personal compatible 


COMPUTADORAS PERSONALES, DE GESTION T APRENDIZAJE 


■w 


TTTn 


ZX Spectrum 


PROGRAMAS PARA ZS-SPECTRÜM 

Programas en cassette para su Za^SPECTRUM. Los mejores programas con traducckm al español 
de su marojo, a precios realmente competitivos. 


Equipos 

informáticos 


SHUfWA 

Impera matririal 80 columnas con set cíe cameletes españoles, totatoaente compatible. 

SH3NWA CP90 F/T es la nueva impresora. Con tecnología actual y precio competitivo, ofrece las 
dos características que hoy día hay que exigir a una buena impresora: fiabilidad y calidad de 
impiesKm. 

Pero La SHINWA CP3Ü F/T no se queda ahí: ofrece una resolución de 640 puntos por línea, juego 
de caracteres españoles y una gran variedad de posibilidades en la impresión de textos: normal 
comprimido, doble ancho, supei índices subíndices reducidos, etc. La impresora se suministra con 
inleifaoe tipo CENTRONICS. Opcionalmenle, se puede conectar un inieiíace RS-232 


CP 80 F/T 


OATALEC 


DATALEC 

Monitor r M iócrtim n para tisuizsdón de datos. 


O monitor DATALEC, con su pantalla de fósforo verde P-31 de 12 pulgadas, es 3a pantalla de 
visualizado]] ideal para presentación de datos y gráficos en alta resolución. 

La carcasa es de ÁBS. reaaente y fácil de Impar, con un diseño esténco muy elaborado, acorde aJ 
uso a que va destinado para conjuntar con cualquier ordenador de sobremesa. 

Dispone de mandos de lie y contraste, así como ajustes extemos de entrada vídeo, frecuencia 
vertical y altura. 

En pantallas de visuatización de datos, el nombre es DATALEC. 


Ventas al Por Mayor. Disponibles plazas para nuevos distribuidores. 
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La introducción de ios niños en ef mundo de 
los ordenadores , no es ninguna fantasía. 

Hoy día está aI alcance de nuestrá mano. La 
instrucción puede combinarse perfectamente 
con i a diversión y obtener resultados especta¬ 
culares. 

Este artículo pretende ser una invitación para 
abrir esta puerta. 


juegos, saber cómo funcionan las 
cosas, acercarse a las “tripas” 
del juguete. Es importante dar 
satisfacción a este instinto crea¬ 
dor y dejar que la fantasía pueda 
volcarse, aunque sea en muy 
pequeña medida. Con ello, sin 
duda, estamos formando un 
cerebro amplio, capaz de enten¬ 
der el futuro al que estamos 
abocados. 

Este artículo es una corta 
historia de esta inquietud. Qui¬ 
zás el lector se encuentre con 


Introducción 


Durante este período, el pe¬ 
queño Apple II es un buen com¬ 


ún problema similar, y le pueda 
servir como guía. 


Todos los padres nos encon¬ 
tramos, al inicio del verano, 
con el problema de tener que de¬ 
jar a los hijos en casa, mientras 
no tenemos vacaciones, puesto 
que las de ellos son siempre mu¬ 
cho más largas. 


pañero de juegos, y proporciona 
muchas horas de aventuras, via¬ 
jando por el espacio, haciendo 
test, persiguiendo extraños mons¬ 
truos, rescatando princesas, etc. 

Pero llega un momento en que 
el niño quiere hacer sus propios 


El problema 

Candy tiene 13 años. Le 
gusta mucho jugar con el orde¬ 
nador personal que tenemos en la 
mesa del despacho, cuando está 


CQLUnNAS 




Figura I 
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cansada de estudiar y no es 
momento de salir al parque a 
jugar. 

Hace unos días tuve la siguien¬ 
te conversación: 

—Papá, estoy cansada de jugar 
a marcianitos. ¿No tienen otro 
juego nuevo?. 

—Pero si tienes muchos. Mira, 
en este disco hay seis juegos di¬ 
ferentes y en este otro hay cinco 
más. 

—Pero ya los conozco todos. 
Me gustaría poder jugar siempre 
a juegos nuevos. Sería mucho 
más divertido. 

Bueno, eso en realidad no es 
imposible, pero tendrías que ha¬ 
cértelo tú misma. Tendrías que 
programarte tus propios juegos 
y así, cada vez que quieras, te 
los puedes cambiar. 


— ¡Huy!. Pero eso será muy 
complicado. Tendría que estu¬ 
diar mucho y también tardaría 
mucho tiempo. 

-No, no lo creas. Mira, para 
que veas que no es tan compli¬ 
cado como te crees, vamos a 
programar un juego que tú mis¬ 
ma te lo pienses. Pero para em¬ 
pezar que sea sencillito ¿Eh?, 

— ¿Podríamos hacer un la¬ 
berinto?. 

—Sí, claro. Es muy sencillo. 
Y además podremos movernos 
por su interior con el cursor, 
conduciéndolo con los mandos, 
como con los juegos que tene¬ 
mos en el disco. 

La solución 

Ya decididos a programar nues¬ 
tro nuevo juego, tomamos un 


HOME 

GR 


17 

COLOR 

;= 15 



O ElC 

HLIN 

0,36 

AT 

0 

30 

HLIN 

0,36 

AT 


35 

VLIN 

0,36 

AT 

0 

40 

VLIN 

0,36 

AT 

36 

50 

HLIN 

4, 12 

AT 

4 

55 

HLIN 

16, 2 

4 AT 

4 

60 

HLIN 

28,3 

2 AT 

4 

65 

HL I N 

4,8 

AT 8 


70 

HLIN 

12,2 

0 AT 

8 

75 

HLIN 

32,36 AT 

S 

80 

HL IN 

0,4 

AT 1 

-¿1 

85 

HL I N 

8, 16 

AT 

12 

90 

HLIN 

202 

4 AT 

1 

95 

HLIN 

4,8 

AT 16 

100 

HLIN 16, 

32 A 

T 


0 REM PREPARACION 
2 HOME 185 

5 GR 190 

i O CT = 0 J. 95 

15 PEINT "FALLOS;"; CT 200 

17 CÜLOR= 15 205 

20 REM CUADRO 210 

25 HLIN 0,36 AI O 215 

30 HLIN 0,36 AT 36 220 

35 VLIN 0,36 AT O 225 

40 VLIN 0,36 AT 36 230 

45 REM ENTRAMADO 235 

50 HLIN 4,12 AT 4 240 

55 HLIN 16,24 AT 4 245 

60 HLIN 28,32 AT 4 250 


VLIN 0,4 AT 16 
VLIN 12,24 AT 16 
VLIN 28,32 AT 16 
VLIN 8,12 AT 20 
VLIN 20,28 AT 20 
VLIN 4,8 AT 24 
VLIN 16,24 AT 24 
VLIN 28,36 AT 24 
VLIN 4,16 AT 28 
VLIN 20,32 AT 28 
VLIN 12,20 AT 32 
VLIN 32,36 AT 32 
REM SALIDA/LLEGADA 
COLOE= II 


105 

110 

115 

120 

125 

130 

135 

140 

145 

150 

155 

160 

165 

170 

175 

ISO 

185 

190 

195 


HLIN 
HLIN 
HLIN 
HL IN 
HLIN 
HLIN 
HLIN 
HLIN 
HLIN 
HLIN 
VLIN 
VLIN 
VLIN 
VL. 3. N 
VLIN 
VLIN 
VLIN 
VLIN 
VLIN 


O, 1 


16 

AT 20 
32,36 AT 20 
4„B AT 24 
12,16 AT 24 


4, 


’8, 32 AT 24 
24 AT 28 
32,36 A T 2B 
0,4 AT 32 

20.24 AT 32 
28,32 AT 32 
24,28 AT 4 
8,16 AT S 
28,32 AT 8 
4,8 AT 12 
16,20 AT 12 
32,36 AT 12 
0, 4 AT 16 

12.24 Al 16 
28,32 AT 16 


70 

HLIN 1 

2,20 A 

T 8 

260 

HL IN 

0,2 AT 1 



205 

VL I 

N 

20, 

28 

AT 

20 

75 

HLIN 32 <, 36 A 

T 8 

265 

HLIN 

0,2 AT 2 



210 

VL I 

N 

4,8 

AI 


i 

80 

HLIN 0 

,4 AT 

1 2 

270 

COLOR 

*> 12 



215 

VL I 

N 

16, 

24 

AT 

24 

85 

HLIN a 

5 1 o A T 

12 

275 

HLIN 

34,36 AT 

34 


220 

VL I 

N 

28, 

36 

AT 

24 

90 

HLIN 2 

0,24 AT 12 

280 

HLIN 

34,36 AT 

35 


-Á 4- V.J 

VL I 

N 

4, 1 

6 AT 28 

95 

HLIN 4 

' 8 AT 

16 

285 

HLIN 

34,^6 h í 

36 


230 

VLI 

N 

20, 

-y '7 

X.. 

AT 

28 

100 

HL IN 

16, 32 

AT 16 


REM 

BUSQUEDA 



'ní 1. J 

VL I 

N 

1 *7 

± X- q 

20 

AT 


105 

HLIN 

0 , 12 A 

T 20 

295 

COLOR 

= 9 



240 

VLI 

N 

■"yr-'y 

O T<— , 

36 

AT 

32 

110 

HLIN 

32,36 

AT 20 

300 

X = P 

DL ÍO) / 

6 


37 0 

END 





115 

HL I M 

4,8 AT 

24 

305 

Y = P 

DL <1) / 

6 









120 

HL I N 

12, 16 

AT 24 

310 

IF SCRNÍ X,Y) 

es: 

15 

THEN 

G£ 

:rr 

0 3" 

55 



125 

HL. I N 

20,32 

AT 24 

315 

IF 8 

CRN < X,Y) 

=- 

12 

THEN 

GOT 

□ 35 

55 



130 

HL I N 

4,24 AT 28 

320 

PLÜT 

X , Y 










135 

HL, IN 

32,36 

AT 28 

*7 '-V 

GOTO 

300 










140 

HL IN 

0,4 AT 

t 

330 

REM 

FALLO 










145 

HL IN 

201 1 24 

AT 32 


CT - CT + 1 










150 

HL IN 

28,32 

AT 32 

340 

PRINT 

“FALLOS: 

M „ 

a 

CT 








155 

VL IN 

24,28 

AT 4 

345 

BOTO 

300 










160 

VL IN 

8, 16 A 

T a 

350 

REM 

LLEGADA 










165 

VLIN 

20, 32 

AT 8 

355 

PR I NT 

r "FIN DE 

LA 

PARTIDA 

ii 






1 70 

VL I N 

4, tí AT 

1 2 

360 

INPUT 

R 










175 

VLIN 

16, 20 

Ai 12 

365 

TEXT 











ISO 

VLIN 

r? -r jl 
o j- * O 

AT 12 

370 

END 
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lápiz, y un papel cuadriculado y 
nos sentamos en una mesa, dis¬ 
puestos a esta nueva aventura. 
Nuestra conversación continuó 
así: 

—Mira, Candy, para hacer el 
laberinto en el ordenador, pri¬ 
mero tenemos que hacer un di¬ 
seño sobre una hoja de papel. En 
este libro dice que para hacer 
dibujos de baja resolución, que 
son los más sencillos, tenemos 
que acomodarnos a un cuadricu¬ 
lado de 40 x 40 casillas. 

- ¿Así? (ver figura 1). 

—Exacto. Ahora vamos a dibu¬ 
jar tu laberinto. Tienes que tener 
cuidado de dejar suficiente espa¬ 
cio para que el cursor se mueva 
cómodamente por su interior. 


Por ejemplo, que el pasillo sea 
de 3 cuadraditos de ancho. 

— ¿Qué te parece? (ver figura 

2 ). 

— ¡Estupendo!. Ahora ya tene¬ 
mos nuestro diseño. Sólo falta 
programarlo. 

El programa 


Nos sentamos delante del te¬ 
clado de nuestro ordenador, 
introducimos el disco del siste¬ 
ma en el lector de discos, le 
damos al interruptor del monitor 
de vídeo y al interruptor del 
teclado. Se enciende la luz de 
potencia (Power), y el disco co¬ 
mienza a rodar. 

Cuando nos aparece el cursor 
en la pantalla, estamos listos 


para empezar a darle instruccio¬ 
nes al ordenador. 

-Bueno, Candy. Vamos a de¬ 
cirle al ordenador que haga lo 
que queremos. Se lo diremos 
dándole instrucciones. Cada len¬ 
guaje de programación tiene su 
propio conjunto de instruccio¬ 
nes.- Nosotros necesitamos muy 
pocas. Pero ya las iremos viendo 
a medida que las utilicemos. 

—Y ahora ¿qué hago? 

—Primero dejaremos limpia la 
pantalla, eso se dice con la ins¬ 
trucción HOME, luego le dire¬ 
mos que queremos hacer un 
gráfico, eso se dice con la instruc¬ 
ción GR. Después que las líneas 
sean blancas, se dice con COLOR 
= 15. 

-¿Así?. 

—De acuerdo. Ahora sólo falta 
hacer el dibujo y añadir algunos 
detalles para mover el cursor. 

— ¿Y cómo se hace el dibujo? 

—Muy fácil, las líneas verti¬ 
cales las indicaremos con VLIN 
a,b AT c, que traza una línea 
vertical en la columna “c” desde 
la fila “a” a la “b”. Igualmente 
las líneas horizontales las hare¬ 
mos con HLIN a, b AT c, que 
permite trazar una horizontal 
sobre la fila “c” desde la colum¬ 
na “a” a la ’V*. 

— ¿Qué te parece? (ver listado 

1 ). 

— ¡Muy bien!. Ahora añadiré 
yo algunos detalles para contar 
los fallos y mover el cursor. Ves, 
así. Ya tenemos el programa lis¬ 
to (ver listado 2). Ahora damos 
la instrucción SAVE, y ya lo 
tenemos guardado en el disco. 
Cuando quieras, podemos utili¬ 
zarlo, igual que los otros de mar- 
cianitos. 

Conclusión 


Este sólo ha sido el principio, 
ahora ya está interesada en los 
dibujos de alta resolución, en 
cómo dejar fijos los paisajes del 
fondo moviendo figuras indepen¬ 
dientemente de éste. Es muy 
divertido crear pequeños mons¬ 
truos moviéndose por paisajes 
extravagantes, conducidos por 
nuestros mandos. 

Jugando, nos podemos intro¬ 
ducir en una nueva técnica, que 
está llamada a ser parte muy 
importante del futuro inmediato 
de nuestro mundo. 

S. Almeida 


INSTRUCCIONES PARA GRAFICOS DE BAJA RESOLUCION 

Cuando queremos dibujar sobre la pantalla de nuestro ordenador 
personal, tenemos que hacer tres cosas diferentes: 

1. Indicar que abandonamos el modo texto y pasamos al modo gráfi¬ 
co, mediante la instrucción GR. 

2. Indicar el color que usaremos en las próximas instrucciones de 
ejecución mediante la instrucción COLOR=a, siendo a un número de 
los indicados en la tabla de colores. 

3. Realizar el dibujo con las instrucciones que se indican más ade¬ 
lante. 

Adicionalmente, si nuestro dibujo se complica mucho, puede ser 
necesario saber la situación en que se encuentra una determinada 
casilla, para pasarla por alto o para cambiarla de color. Para este caso 
tenemos otro tipo de instrucción: 

4. Interrogación del estado, es decir, obtención del número corres¬ 
pondiente al color que tiene en ese momento. Para ello se utiliza 
la instrucción SCRN (X, Y), donde X e Y representan el número de la 
columna y de la fila, respectivamente, que se desea consultar. 

Es muy frecuente utilizar la letra X para referirse a la columna que 
deseamos referenciar, y la letra Y de forma similar para la fila que de¬ 
seamos referenciar. De esta forma, si el par (X,Y) tiene los valores 
X=2 e Y=5, nos estamos refiriendo a la tercera columna y a la sexta 
fila, puesto que la numeración empieza desde el 0 hasta el 39 (para 
las 40 filas y columnas). 

Para realizar el dibujo disponemos de tres instrucciones: 

1. PLOT X.Y: Colores el cuadro correspondiente a la columna X y 
a la fila Y, con el color cuyo valor se ha indicado por último en una 
instrucción COLOR=a. 

2. HLIN XI, X2 AT Y: Traza una línea horizontal a la altura de la 
fila Y, desde la columna XI hasta la columna X2, según el color 
indicado. 

3. VLIN Yl, Y2 AT X: Traza una línea vertical sobre la columna X 
desde la fila Yl a la Y2, según el color indicado. 

TABLA DE COLORES 


0 

-negro 

8 

—marrón 

1 

—magenta 

9 

—naranja 

2 

—azul oscuro 

10 

-gris 

3 

—púrpura 

11 

—rosa 

4 

—verde oscuro 

12 

—verde 

5 

-gris 

13 

-amarillo 

6 

—azul medio 

14 

—azul 

7 

-azul claro 

15 

—blanco 
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GEMINI 10X : 80 COLUMNAS, 120 cps. 
GEMI NI 15X : 132 COLUMNAS, 120 cps. 


Delta 10 : 80 columnas, 160 cps. 
Delta 15 : 132 columnas, 160 cps. 


IMPRESORAS 


De venta en establecimientos especializados. 


IMPORTADO POR 


^7 


■n 


Gran Via de les Corts Catalanes, 682, Barcelona-10 
Teléfonos 318 85 33 - 318 89 12 
Telex 50204 SCS E 


COMPONENTES ELECTRONICOS S A 


Radix 15 : 80 columnas, 200-38 cps. Powertype : 110 - 132 - 165 columnas, 18 cps. 

Radix 15 : 132 columnas, 200-38 cps. 
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ZX 81 : Rutina en código 
máquina para protegen 
programas en Basic 



Muchos autores desearían disponer de un sistema 
de protección que impidiera que los programas 
que diseñan sean fáciles de copiar por otros usua¬ 
rios. Aquí presentamos una sencilla rutina en CM, 
fácil de incorporar a cualquier programa escrito en 
BASIC, y destinada a protegerlo frente a «espías» 
y copias incontroladas. 


La protección de 
programas 

Un programa se dice ^protegi¬ 
do» cuando dispone de un meca¬ 
nismo destinado a impedir, o difi¬ 
cultar seriamente, el acceso de 
tos usuarios a su listado y a la 
posibilidad de copiarlos y grabar* 
Jos. La protección de programas 
tiene como finalidad entorpecer 
las copias incontroladas y el pla¬ 
gio. 

Probablemente no existe un 
procedimiento perfecto de protec¬ 


ción. En el ZX81 nada impide que 
un programa grabado en cinta se 
pueda reproducir de cassette a 
cassette si se emplean aparatos 
que distorsionen poco la señal; 
pero ila copia nunca tendrá la 
calidad del original, y esto impone 
un límite natural a este proce¬ 
dimiento de reproducción. 

En cuanto al acceso al listado, 
existe un procedimiento bastante 
bueno que lo previene: diseñar el 
programa enteramente en CM r 
grabarlo de modo que se autoe- 
jecute (mediante una instrucción 
SAVE en medio del programa) y 


evitar que devuelva el control a 
BASIC. Como el programa no se 
podrá detener, tampoco se podrá 
listar ni grabar. Incluso si el 
programa se detiene, pocos usua¬ 
rios entienden el CM, y esto es 
una buena garantía, Pero al 
mismo tiempo es un inconvenien¬ 
te, porque pocos usuarios podrán 
proteger sus programas a base de 
diseñarlos exclusivamente en CM, 
Además, este procedimiento de 
programación resulta a veces muy 
incómodo y farragoso a pesar de 
sus ventajas, especialmente sí 
hace falta manejar largos men¬ 
sajes en la pantalla, u operacio¬ 
nes en coma flotante. 

Debe señalarse aquí un curio¬ 
so truco que impide la autoeje- 
cución de un programa, y que ya 
fue publicado en ORDENADOR 
PERSONAL (n- 14). Consiste en 
cargar mediante la secuencia de 
comandos: FAST, NEWLINE, 

RAND USR 837, NEWLINE, RAND 
USR 837, NEWLINE, (y se pone en 


1 REM 123i5S7S9£ílS3-i5£?S 30155 1 
4567590123-4.567590123456 7S9012345 
5739012345673901234567390123^567 
S90123456739O 

20 LET fi$ = ,l DD22BB40DD21SB40C9E 
1D1C1F122BD402lRB40E52fiED40P5C5D 
5E5B&D3FD2A0C4 0CSFCí>D2AJS3+0í>D£9^ 
22 LET ft$=fi$ + I, CE>8240F50B3C033ñ 
00403CC40000F1C900000000CDE702FD 
CB3BB&2e0C4036C7C92R0C403676C0FD 
CB3BF6CD0702C38240" 

30 FOR X=i TO LEN STEP £ 

4-0 LET ñ = 16 í ÍCODE ñí £X) -28Í fCO 
DE R$ ÍXH-li -28 

50 PÜKE ( !6514--£íX-X> ✓ Sí 
60 NEXT X 
70 STOP 

9930 REM GRñBRCION 
9990 SAUE M PRQTECTüS* 1 


1 REM < >efflRND < >5»RNOTAN LPRIN 
T SBN RT LET &HRND51RND FRST E^R 
NO PRIMT URL STR$ FRST^gPEEK CLE 
Rf? EÉRNDRCS UNPLOT í>E®ÍRND<> DIH 
LN fcRND PRINT lUfU RNDUCÜDE L 
ET TñN LN SORDLL * CLEAR AC5 

NDQ5IN TAN EERNDQ 
253 PLOT LN f ■TfcRND ±234-567390 
9980 REM GRABACION 
9990 3AUE “ PRÜTECT□]§“ 


I REM 0 6BRND0SBRNDTRN LPRIN 
T SGN AT LET SHRNDSgPND FfiST 
ND PRINT URL STRJ FAST IgPEEK OLE 
RR E£RNDRC5 UNPLOT ^ > EHRND -í > DIÍ1 
LN iRND PRINT RNDUCGDE L 

ET TAN LN 5CROLL c CLERR ACS 

1 ! §E£RNDQSIN TAN EERNDü 
253 PLOT LN F* 7 fcRND12C4567690 
3980 REM GRABACION 
9905 IF USR 18575 THEN REM 
9990 SRUE ’'PROTECTOS H ' 

9995 IF USR 16536 THEN REM 
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1 REM < > &8ÍRND < > SttRNDTñN LPftIH 
T SGN RT LETT bfflRNDSSRHD FRST EfflR 
ND PRINT URL STP$ ^STjgPEEK CLE: 
RR E£RNDRC5 UNPLOT OElPWDO OIH 
LN fcRND PRXNT WlMM RNDWCDDE L 
ET TRN H"7INKEY*LN SC-ROLL “ OLER 
R RCS üBH£RNDÉ>SXN ThN EfRN0U 
253 PLOT LN P ■?fcRN01H34-S&783© 
100 REM CLRUE DE 

DESPRIURTIZñClDN 
110 INPUT 

12© IF M $ -" -RBQ ,J THEN GOTO 9S00 
13Q GOTO 100 

3000 REM DETENCION DEL. PKübKHHfl 
9010 FR3T 
0020 5LOU 
9030 5TOP 

9930 REM GRRBRCXDN 

9985 XF USR 1857S THEN REM 

9990 3PUE 1 * * * S *PROT E C-T G¡g 

QQ95 XF USR 1B53S THEN REM 

999© GOTO 100 



marcha el cassette). Cualquier 
procedimiento de protección de¬ 
berá tener previsto este truco. 

El principa! problema en la 
protección de un programa en 
BASIC consiste en que éste 
siempre puede detenerse median¬ 
te BREAK o STOP, o bien forzando 
un error. No vale de nada, por 
tanto, diseñar el programa de 
modo que se autoejecute ai cargar 
y no se detenga nunca por sí solo; 
ya que el usuario podrá detenerlo 
cuando él quisiera. No obstante, 
cualquier detención forzará un 
error, cuyo código aparece al pie 
de la pantalla y que indica la 
causa de la detención. Por ejem¬ 
plo, BREAK fuerza un error de 
código !í D> t y STOP uno de código 
«9» (o D ). Esto puede ser 
aprovechado por una rutina en 
CM, que se encargará de eje¬ 


cutar un borrado automático de la 
memoria al detectar un error de 
código distinto de cero. 

Para que el mecanismo de 
protección que aquí se propone 
sea eficaz, el programa en BASIC 
deberá cumplir las siguientes 
condiciones: 

1. Debe autoejecutarse al car¬ 
garlo. 

2. Nunca debe detenerse por sí 
solo. 

3 Debe ser imposible detener¬ 
lo sin forzar un error de código no 
nulo. 

Respecto a la última condi¬ 
ción, debe recordarse que el 
programa se detendrá dando un 
código de error nulo si alcanza ia 
última línea del programa (a no 
ser que ésta lo envíe dando un 
salto atrás). Debe evitarse, pues, 
esta posibilidad. 


Además, la rutina que se 
propone sólo funciona conSLOW, 
y se detiene al pasar a FAST. 
Como consecuencia, el programa 
deberá funcionar en SLOW, y no 
podrá contener las instrucciones 
PAUSE ni LOAD, ya que durante 
la ejecución de éstas el aparato 
pasa provisionalmente a modo 
FAST. La grabación deberá reali¬ 
zarse exclusivamente en la forma 
que se indica más adelante. 
Existen otras limitaciones. No 
estoy seguro de haberlas descu¬ 
bierto todas, de modo que eí 
usuario deberá experimentar con 
el programa protegido hasta con¬ 
vencerse de que todo marcha 
bien. Mencionaré como limitación 
adicional, que el programa no 
admitirá entradas de cadenas de 
longitud superior a un renglón, 
debido a que en el momento de 


1 REH < >6BRNO< > 5BRNDTPN LPRIN 
T SGN RT LET 6fflRNDESRND_FRST 
ND PRXNT URL STR$ OLE 

RR E£RNORGS UNPLOT < < > DIN 

LN fcRND PRXNT |§U$§U RNDUCODE L 

ET TRN J B ?PILN SCROLL s CLLnR RC 

S U0EERNDQ3IN TRN E£RHDS 
£53 PLOT LN F*7jfcRNDlS34-5&’7690 
100 REM CLRUE DE 

DESPR XURTIZRClüH 
105 PRINT “BUENOS DIRS.. # \, " SOY 

UN PROGRRMR PROTEGIDO.“/'&! RCIE 
RTR LR CLRUE 5ECRETR, CONSEGUÍ 

IRR DESPRIURTIZRRME.” 

110 INPUT M$ 

120 XF M$=^'R©0“ TliñN GOTO 9000 
125 CL5 

130 PRXNT “LO SIENTO:,“NG RCE 
kTü LR CLRUE . l ' 

140 PRXNT 

150 PRXNT “DE TODOS MODOS LE QR 
RE QTRR OPORTUNIDAD.“ 

1S0 PRXNT 

170 PRJNT -ELXUR UNA DE LAS SIG 
UIENTES OPCIONES:“ 

130 PRXNT 

190 PRINT "l. ENTRAR EN UN CICL 
O SIN SALIDR"¿ ¿ “2 * ENTRhR EN UN 
CICLO CON SñLIDR" 

200 INPUT X 


CLS 

210 IF X = i TMEN GOTO 300 
220 1F X = 2 THEN GOTO 4-00 
230 PRINT “ HR PULSADO UN NUMERO 
QUE NO UALE", t “PUES AHORA ME BO 
RRO EN" 

24-0 FOR N =50 TO O STEP -1 
24-5 PRINT RT 7, 10.; N,‘ "5EGUND 

OS“;" " 

250 NEXT N 

t|Í PRINT "YA ESTOY EN UN CICLO 
SIN SRLIDñ . " , , "ROUI ME QUEDO. 

305 GOTO 305 ___ 

4-00 PRINT "ESTAMOS EN UN CICLO, 
PERO SE PUEDE 5RLIR PULSANDO 

4-10 IF INKEY$ < > “X“ THEN GOTO 4 1 

0 

420 CLS 
430 GOTO 170 

ágil REM DETENCION DEL PROGRAMA 
■9010 FAST 
9020 SLÜU 
9030 STOP 

aege REM GRABflCIOM 

9935 IF USR 1657S THEN REM 

9990 SAUE "PROTECTOa" 

9995 IF USR 1&586 THEN REM 
9998 GOTO 100 
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expandirse las dos filas inferiores 
del espacio inferior de la pantalla, 
se produce una condición de error 
que dispara el borrado automáti¬ 
co. Algo parecido sucede si se 
comete un error sintáctico al 
responder a un INPUT numérico. 

La rutina de protección 

Se muestra en el listado n- 1 
como dos cadenas de códigos 
hexadecímales en las líneas 20 y 
22, listas para cargarse en ta línea 

1, ocupada por una sentencia 
REM cuyo texto deberá tener al 
menos 90 caracteres. Se han 
añadido además las líneas 9980 y 
9990, para facilitar la grabación. 


A! ejecutar el programa carga¬ 
dor (RUN), el CM entra en la línea 
n e 1. Después se pueden borrar 
las líneas 20 a 70, con lo que se 
obtiene el listado n e 2. La línea 
253 PLOT... es un «espejismo^ 
causado por una anomalía {ino¬ 
fensiva) del listado, provocada por 
la presencia de un código de 
NEWLINE (76h) en medio del CM. 

Hecho esto, se puede escribir 
el programa en BASIC. Si lo que 
se desea es proteger un programa 
ya escrito, éste debe cargarse 
primero, y las operaciones arriba 
indicadas se realizarán con el 
programa cargado. Naturalmente, 
las líneas 1 a 70 deberán estar 
libres, o bien el cargador se 
situará en otro lugar En todo 


caso, la sentencia REM del prin¬ 
cipio deberá ocupar la primera 
línea del programa. 

Las líneas 9985 y 9995 que se 
muestran en el listado n q 3 se 
añaden para que el programa 
quede correctamente protegido al 
cargarlo. La grabación se efectua¬ 
rá mediante la orden: GOTO 
9980. 

La línea 9985 contiene una 
llamada a una subrutina que 
desarregla el archivo de pantalla. 
Esto impide que funcione el truco 
mostrado al principio para evitar 
la autoejecución. Si se usa dicho 
truco, aparecerá un CRACK. 

La línea 9995 llama a otra 
subrutína que arregía el archivo 
de pantalla, y pone en marcha el 
mecanismo de protección. 

Dicho mecanismo consiste en 
una comprobación periódica del 
estado de la variable ERRNR, 
que almacena el código de error 
en curso (decrementado en una 
unidad). Para ello se aprovecha el 
sistema de interrupciones no en- 
mascarables (NMI), de forma simi¬ 
lar a como se hacía en la rutina 
AUTO-REPEAT publicada en el 
14 de ORDENADOR PERSONAL 
Cuando el código detectado es 
distinto de cero, se ejecuta una 
llamada a la rutina de íníciali- 
zación de la ROM. 

El programa que se muestra en 
el listado n- 3 aún no está 
preparado para funcionar. Si se 
graba y se carga, se autoejecu- 
tará, pero también se detendrá 
con un código de error cero al 
alcanzar la última línea (9995), Es 
necesario disponer de un salto 
detrás de esta línea, que lleve al 
principio del programa. 

Debe tenerse en cuenta que, si 
el programa ha sido diseñado 
apropiadamente, sólo podrá ser 
grabado una vez, porque después 
quedará protegido incluso para su 
autor. Por ello debe diseñarse una 
clave que permita, al menos al 
autor, desprivatízarlo. Esto es lo 
que se muestra en el listado n 5 4. 
Si se introduce la cadena «ABO» 
en el INPUT de la línea 110, se 
producirá un salto a la línea 9000, 
y se ejecutará la secuencia FAST- 
SLOW que detiene la rutina de 
protección. La cadena clave, lógi¬ 
camente,, sólo será conocida por 
e! a utor del programa, y puede ser 
tan complicada como se quiera 
(siempre que no exceda de 29 
caracteres). 

El tístado n e 5 ^muestra un 
programa protegido algo más 
largo. También debe grabarse 
mediante GOTO 9980, y su clave 
de desprivatización es <:ABCK 
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direc. 

CM 

etíq. 

mnemónicos 

Comentarios 

4082 

DD22BB40 

RUT 

LD (Vi), IX 

Tras una NMÍ el aparato 


DD218B40 


LD IX, L2 

ejecuta un JP (IX) que 


C$ 


RET 

lo envía a L2. 

408B 

El 

L2 

POP HL 



DI 


POP DE 



C1 


POP BC 



El 


POP AF 



22BD40 


LD (V2), HL 

Cadena de instrucciones 


21AB40 


LD HL, L1 

destinadas a que se eje- 


E5 


PUSH HL 

cute un salto a L1 tras 


2ABD40 


LD HL, (V2) 

eí refresco de 1a pantaiia 


F5 


PUSH AF 



C5 


PUSH BC 



D5 


PUSH DE 



E5 


PUSH HL 



B6 


OR (HL) 

Dos instrucciones de de- 


D3FD 


OUT (FD), A 

mora (temporización fina) 


2A0C40 


LD HL, (D FILE) 

Salto a la rutina de visua- 


CBFC 


SET 7, H 

lización con HL inicializado. 


DD2ABB40 


LD IX, (VI) 



DDE9 


JP (IX) 


40AB 

CD8240 

11 

CALL RUT 

Ajusta de nuevo IX . 


F5 


PUSH AF 

Guarda registros a usar . 


08 


EX AF, AF' 

Ajusta contador de líneas 


3C 


INC A 

de la pantalla . 


08 


EX AF, AF' 



3A0040 


LD A, (ERP NR) 

Comprueba código de error. 


3C 


INC A 

Si no es cero, llamada 


C40000 


CALL NI. STAPT 

a inicialización. 


F1 


POP AF 

SI lo es, restaura regis¬ 


C9 


RET 

tros, y retorno , 

40BB 

0000 

VI 

DEFW 0000 

(Aquí se almacenan datos 

40BD 

0000 

V2 

DEFW OOOO 

pro visiona/men t e). 

40BF 

CDE 702 

L3 

CALL SET-FAST 

Se pone modo FAST para 


FCDB6 


RES 6, (CDFLAG) 

in terrump ir vis ua liza c ion . 


2Á0C4O 


LD HL, (D FILE) 

Se desarregla el archivo 


36 C7 


LD (HL), C7 

de pantalla . 


C9 


RET 


40 CC 

2A0C40 

L4 

LD HL, (D FILE) 

Se arregla ei archivo de 


3676 


LD (HL), 76 

pantalla. 


00 


NOP 

(Evita desarreglo listado) 


FDCB3BF6 


SET 6, (CDFLAG) 

Se pone modo $LOW. 


CD0702 


CALL SLOW/FAST 



C38240 


JP RUT 

Se pone en marcha la ru¬ 





tina de protección. 

' (4082h= 16514d; 408Fh=16575d; 40CCh=16588d.) 


RUTINA DE PROTECCION DESENSAMBLADA 
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CONFIGURACION 

"GESTION" 


CONFIGURACION 
"ESTUDIAN TE" 


KATSON II c.tji. 98.500 
DISC DRIVER 117.000 
CONTROLADOR 11.300 
LANGUAGECARD 13.500 

MONITO'R FOS- 29.000 
FORO VERDE 

PRINTERCARD 12.375 


1 KATSON II 

con manual en caste¬ 
llano y cassette. 

1 MODULADOR RF. 

1 JOYSTICK 

1 UNIDAD LECTORA 
DE CINTA 


ID&rSOO 


La mayor variedad 
en tarjetas 
y accesorios 
para tu APPLE* 


KATSON II 


DISK ORIVE 


ALTA \ 
FIABILIDAD 


JQYSTIC 


MECANICA SHUGART 


DISK ORIVE TRACCION DIRECTA 


Este verano ventila tus 
tarjetas y fuentes de , 

alimentación por 


Aprovecha las posibilidades gráficas 
con el tablero gráfico PLGTT I!. 


estos son nuestros precios s/n competencia 


Utiliza tu T V 
con el 
modulador 
R,F, 


CD'015 EPROM WRITER 

CD-016 80OOLUMN CARD 

CD-017 CONTROLADOR 

CDO10 LANGUAGECARD 

CD-019 16 K RAM CARD 

CD 020 PAL CARD 

CD 021 6522 PARALLEL CARD 

CD-022 MUSIC CARD 

CD-023 SPEECHCARD 

CD-024 80 COLUMN SOFT SWHCH CARD 

CD 025 RF Modulador 

CD 026 COOLING FAN 

CD-027 JOYSTICK para APPLE 

CD 028 5WITCH ES 40/80 00 LUMNAS 

CD-029 TABLERO GRAFICO PLOT lí 


ORDENADORES PERSONALES 


KA-001 KATSON H 

KA-002 KATSON II con teclado numérico 


TARJETAS Y ACCESORIOS 

CD-QQl 8068 CARD 

CD-Q02 A/D - D/A CARD 

CD 003 A/D CARD 

CD 004 ÍEEE-48S 1NTERFACE CARD 

CD-005 6809 CARD 

CD-QQ6 SERIAL INTERFACE C 

CD 007 SUPER SERIAL CARD 

CD‘008 COMMUNICATION CARD 

CD-009 128 K RAM CARD 

CD-010 CP/M CARD 

CD-011 WILÜCARD 

CDJJ12 GRAPPLER + eUFFER CARD 

CD 013 TIME lí CARD 


DISK DRIVER 


DD-QC1 Disk dríver ■ Unidad de disco flexible 
simple cara simple densidad 143 K. 
_Mecánica Shugart,_ 


ITEFi CARD 


KATSON es una exclusiva de: 
ANGLÉX 

Anglo-Española de Trading. S A 

Aya la, 13 
MADRID-1 
Tela. 276 22 74 
27622 75 

Telex: 42 597 ANLE 
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Programación 


Geografía espacial 


«Y sin embargo, gira» exclamaría seguramente Ga- 
lileo si hubiera podido ver funcionar este progra¬ 
ma que dibuja, sobre la impresora de un PC-1500, 
el globo terrestre —con sus mares y continentes- 
desde todos los ángulos imaginables por los cartó¬ 
grafos aficionados. 


¿Quién no ha notado nunca las 
deformaciones que aparecen en 
una carta geográfica debidas a la 
redondez de la Tierra? Los cartó¬ 
grafos utilizan actualmente varios 
sistemas de proyección: cónica, ci¬ 


lindrica, etc.; pero ninguno ofrece 
una reproducción fiable. A medida 
que nos acercamos a las regiones 
polares, las superficies geográfi¬ 
cas se nos presentan de forma 
desproporcionada, y el bello pla¬ 


nisferio se revela mucho menos 
preciso que el majestuoso globo 
terráqueo. 

¿Cómo resolver el compromiso 
entre precisión y tamaño? 

El problema parece estar re¬ 
suelto con este programa para PC- 
1500, que permite obtener con la 
impresora gráfica la representa¬ 
ción del globo terrestre desde to¬ 
dos los puntos de vista. Del polo al 
ecuador, él permite entrar las 
coordenadas deseadas y la impre¬ 
sora dibujará la correspondiente 
cara del globo, sin las deforma¬ 
ciones observables sobre las car¬ 
tas geográficas clásicas. 

Un único inconveniente para 
quien quiera usar este programa: 
las interminables líneas de DATA, 
que corresponden a las coordena¬ 
das de cada uno de los puntos de 
los contornos geográficos. 


Meridianos y parale i os 
son trazados 
automáticamente 

Por lo demás, su utilización es 
bien simple. E! programa es inte¬ 
ractivo y comienza con una serie 
de preguntas relativas al ángulo 
bajo el que se quiere ver la Tierra 

¿Radio? pide el radio de la 
Tierra en el diseño. Este comando 
da la talla final del dibujo. Un 
radio de 22 ocupa completamente 
el ancho del papel de la impreso¬ 
ra, pero es posible introducir un 
radio mayor, con el inconveniente 
de que se pierde parte del diseño 
(ver figuras). 

Alfa nos pide la entrada de un 
valor entre 0 y 360, que corres¬ 
ponde al ángulo vertical de incli¬ 
nación de la Tierra sobre su eje 
(ver figura 1), 

Beta concierne al ángulo de ro¬ 
tación del conjunto sobre eí eje 
horizontal. 
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¡TEXT : LJAI T 0: 

GESREE :CLEAR 
¡INPUT "Radio?" 

; S, "Al f a i " J A, 
"Beta • " ; Bj ‘‘Ph 
I ;";F, ”Cuadr í 
cal a?''; G, "Paso 
?" j P 

; INPUT *' Transpa 
oente e S o N) 
i - ;U4 

¡U=i:IF LEFTS < 
04, 1 )="S"LET U 
-2 

:INPUT "Color e 
S o N) :"J COí: 
PR1NT '' Estoy 
D 1 boj ando 1 ! 

; C-00=0: IF 
LEFT4 CC04,1)= 
‘‘S"LET C=1: 0=2 
i: CS J 2E 2: LPRINT 
"RADIO";S: 
LPRINT "ALFA"i 
A:LPRINT "BETA 
";B:LPRINT "PH 
I";F:LPRINT "C 
UAORICULA";G; 
LPRINT "PASO") 
P 

i: LPRINT "HORA:" 

; TIME 

CREfl CONTORNO 
l: COLOR D: T=3, R= 
S*4. 9 

):LCURSOR 0: 
GRAPH :SORGN : 
GLCURSOR C108, 
-1,i*R):SORGN 
¡GLCURSOR (R, 0 
) : T=0 

i:FOR I=0TG 360 
STEP P 

)¡X=R*CQS I:V=RX 
SIN I 

1: LINE - CX, YJ, T 
1: NEXT I 

): REM riERIDIANO 
S 

): GOSUB 210 
1: GOTO 230 
): D=D+C, D=D-4* 
INT CD/-4): 
COLOR D 
í: RETURN 

): T=3, J=SIN B, Ka 
eos B, H=SIN A, 
m-^cqs a 

3: IF G=0GOTO 420 
3: FOR 0=GTD 360 
STEP G 

): FOR L=30TO -90 
STEP -P 
3: GOSUB 230 
): GOTO 320 
};a-SIN (O-F), £•= 
eos <0-F>,U-= 
COS L,W=SIN L 
3: ON UGDTO 310, 3 
30 

3:2-R*<W*H*K-U*Q 
*J+U*E*M*K) 

3: IF Z<0LET T=3 
3: X=R*eU*a*K-H4*H 
*J+U*E*M*J) 

3:Y-R*íW*n-U*E*H 

> 


: LINE -ex, Y), T 
;T-0:RETURN 
: NEXT L 
i: T-=B:NEXT 0 
;REM PARALELOS 
¡GOSUB 210 
:FOR l=- 30 + GTO 
30-GSTEP G 
:FOR O=0TO 360 
STEP P 
i; GOSUB 230 
l:NEXT O 
l: T=3:NEXT L 
i: REO CONTINENT 
ES 

i: RESTORE 580: 

GOSUB 210 
UREAD N, L, O 
i:ON ERROR GOTO 
560 

l; GOSUB 230 
1: FOR I=2T0 N 
): READ L, O: T=0 
i: GOSUB 230 
): NEXT I 
l¡ T=3: GOTO 480 

): , G !=ÍV^RKT^f P 

¡CSI2E 2: 

LPRINT "HORA:" 

; TIME :END 
)¡ REM EUROPA 
(¡DATA 218, 41, 23 
,42, 35, 41, 38, 4 
*2. 5, 42-3, 46, 32 
, 4 8, 33, 46, 5, 35 
46, 32, 44,3, 34 
, 45.5 

): DATA 32, 46.2, 3 

3. 5, 42, 31, 42.5 
, 22, 41, 23, 40.8 
, 23, 38, 24, 36.5 
, 22.8, 40.5, 13. 
5, 42, 13. 5 

(¡DATA 45.2, 13.2 
, 45.5, 12.3, 44. 

4, 12.3, 43.6, 13 
. 6, 42. 5, 14.1, 4 
0, 18.5, 40. 5, 12 
, 39. 2 

I ¡DATA 16.5,33,1 

2. 2, 38, 15.6, 38 
, 12.5, 36.6, 15, 

38.3, 16. 1, 40, 1 

5.2, 41.3, 13 

)¡ DATA 43, 10-5, 4 

4.3, 8.9, 43.2, 6 
.2, 43.5, 4, 42.2 
, 3, 41.8, 3. 3, 33 
' 5Í - .4, 38.2, .3 
, 36,6 

«¡DATA -2, 1, 36.5 
,-4.8, 36, -5. 4, 
32. 1, -6. 2, 32, - 
8. 8, 38.6, -8. 8, 
38. 6, -9. 4, 41.2 
, - 8 . 6 

i: DATA 43. 1, -3- 3 
, 43. 2, -2.2, 43. 

3, -1 - 5 

l: DATA 46. 1, -1 - 2 
, 42. 3, -2.5, 48, 
-4.2, 48. 6, -4.7 
, 48. 8, -3. 1 
J¡ DATA 48. 7,-1,7 
, 49. 8, -2, 49. 8, 
-1.3, 49. 4, -1. 1 
, 43.3, -.1, 49. ?' 
, . 2, 50.2, 1.5, 5 
0 . 9 


¡DATA 1.6,51.4, 
3.6, 53.3, 4. 7, 5 
4, 8.3, 57, 8 1,5 
7. 6, 10.7, 56.4, 

11.3, 54.5, 10, 5 
4, 14.2 

¡DATA 55, 20, 59, 
22, 60, 30, 60.6, 

?ls 6 ¡; l¡: S¡: II 

, 61,17, 60, 13, 5 

6 , 16 

¡DATA 55.4,13,5 
3, 10.3, 58, 7.6, 
58.5, 6, 62.5, 5. 

,41.5 

¡REM ASIA 
¡ OATA 66.5, 33, 6 
7. 2, 33, 64.5, 35 
,64 40 68.2 44 
; 69 67v72, 70, 7 
\ 112 , b.4, 110 , 7 

2, 130, 20 

: DATA 175,67,13 
0, 66, 1 77, 63, 1 8 
0, 60, 170, 60, 16 

3, 55, 162, 51, 15 
7, 57, 156, 62, 16 
3 02 

: DATA 157, 53, 15 
i, 53, 143, 55, 13 


125.5 

i: OATA 41, 121, 38 
.5, 1 18, 30, 122, 
23, 1 17, 21, US, 
22, 108, 13, 105. 
5, 14.5, 103, U* 
5, 103, 8 

I: DATA 105,13,10 
0.5, 3, 99, 5, 103 
5s I, 104? 4,101 

;§ ab, i y\ sb, 23 

, 32, 15, 80, 10, 8 
0, 8, 77 

l: OATA 12, 74.5, 2 
1, 72, 25, 67, 25, 
56, 30, 50, 29. 5, 
43, 24, 53, 25, 56 
,24, 56, 23, 60, 1 
b, 56, 12. 5 
J: REM AFRICA 
1¡ DATA 44, 28, 35, 

ifer^íf-sl; 11: : 

25^ 35, -26 
); DATA 33, -23, 32 
, -34, 26, -35, 20 
\ -18, 12 

); DAT A -i 1,14, -1 
, 3/3, 10, 4.6, 8. 
4, 4.3, 5.9, 6. 5, 

4.3, 4.8, -2, 4.6 
, -2.7, 7.8, -12. 

3, 9.6 

); DATA -13. 4, 12. 

4, -16.7, 14.9, - 
17.6, 17. 2,-16. 
1, 21-3, -17.2, 2 
8, -12. 9, 30. 3, - 
3.5, 31 

}¡ DATA -3*8, 32,- 
3.8, 33.3, -8.3 
}: DATA 33.3, -6.9 
, 35. 8, 6, 35. 9, 

-5. 4, 35.2, -4.7 
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, 35, -2, 36. 4, I, 
37.3, 10.2 

840: DATA 36. 7, 10. 4 
, 37, 11, 36. 1, 10 
.5, 35. 2, 11. I, 3 

4, 10, 32. 8, 12. 5 
, 32. 94, 13.2, 32 
. 4, 15. 3 

850:DATA 31.5,15.6 
,30, 13, 31, 20, 3 

2, 13. 7, 33, 22, 3 

860:DATA 23, 31.6, 3 
1,31.2, 33.5, 32 
, 36, 37, 28, 40, 2 

6, 4 1, 29 

820: DATA 13,58.5,- 

5, 58.2, -1.8, 56 
,-3.3, 56, -2, 53 
, .5, 53, 1.6 

880: DATA 52. 2, 1.2, 
51.3,. 8, 51.3, 1 
.5, 50. 9, 1, 50, - 
5. 8, 51.4, -3.7 
830: OATA 51.7,-5, 5 

3. 3, -4.5, 53. 3, 
-3, 55, -3.5, 54. 

7, -5, 57. 5, -6.5 

, -5 

300:REH ISLAS 
310: OATA 5, 55.3, -6 
.5, 54.3, -10, 51 
.4, -10, 52.2, -6 
. 3, 55. 3, -6.5 
320: DATA 2, 66. 5, -2 
2. 5, 65.4,-24.5 
, 66. 6,-16, 65, - 

}hh iá’. 5*226? 

5 

330: DATA 10, 43? 9, 4 
? 42.4, 8*5, 4 1.5 
j S» 8j 40. 3j 3, 9j 
39. 1, 3. 7, 38.3, 

8, 4, 40. 8j S* 4j 4 
1-3, 9.2 

940:DATA 42.1,9.6, 
43? 9. 4 

950: DATA 6,-13? 43, 
-12? 44, -25? 44, 
-25? 47? -15, 50. 
5-13 49 

S60; PÍif-4S; 98; =33 

? 82,-15? 03. 6, - 
30, 78. 5, -73, 76 
? -58? 75-6, -53, 
70? -51? 66 
970: DATA -53.5, 61, 
-48? 60, -44 
980:AMERICA 
990; DATA 84, 63, -77 
? 52, -56? 50, -65 

7?40. 6, -74, 37, 
-76 

1000: DATA 35.2, -7 

5. 7, 31, -81.6 
, 27,-80, 25, - 
80. 5, 28, -82. 

2, 23, -82. 5, 3 
0, -84, 30. 3, - 
89 29 

1010: DATA -30, 23. 

Y22’ 2 &¥ 

13,-36,18.4, 
-34, 13, -31, 2 
1,-30, 21.6, - 
87, 16 

1020:DATA -83, 15. 

6, -83, 10.5,- 
83. 5, 3,-81.5 
,3.7, -73, 8, - 
77, 11, -75, 12 
, - 21 , 10 . 6 , -6 

3, 4 


1020 : 


1030: DATA -52, 0, t 
-i 

1, -25, -48, -2 
8, -48, -41, -6 
3,-51, -63, -5 
5Í -65 

1040: DATA -55,-20 
, -50, -26, -37 
-74 -18,-70 

J -6, -81, 0, -8 

1.6.6, -77.5, 
3, -73, 7, -81, 
3. 5 

1050: OATA -85, 13, 
-88, 14, -31.5 
, 16. 2,-35, 15 
. 2, -36.6, 19. 
6,-106, 22, -1 
05.7, 23, -112 

. 4 

1060:DATA 31.3, -1 
13, 31.6,-115 
, 30, -114.6, 2 
3, -103.5, 25, 

’sb.il 

, 43, -124.5, 4 
'8.5 -124.5, 5 
3,-138, 61,-1 
4§, 54, - 165, 5 
3 

1080:DATA - 158,62 
, -166, 68,-16 
71, -157, 68 
, -110, 70, -82 
, 60,-35, 54, - 
80, 63, -77 
1090:REPI : PACIFIC 
O 

11001 DATA-32?-{®- 
5, 142. 4? 

5 141,-15, 13 
5.5, -12, 137, 
-11, 132, - 15, 
123, -14, 127, 
-20 

1110:DATA 120,-22 
, 114, -26, 1 13 
, -32, 1 16, -34 
.5, 115, -35.2 
, 118, -31.5, 1 
30, -32.5, 133 

. 5, -35 

1120: DATA 135.5,- 
33, 137.8, 35 

. 2, 137.5, -38 
, 140. 4, -39, 1 
^3.4, -37.8, 1 
45, -33.2, 146 
1130:DATA -37 5,1 

SS’ - 

23, 153.6, -25 
.6 153, -20, 1 
48.4, -18. 8, i 
46.3 

44, -10.5, 142 
. 4 

1150: DATA 23, -63, 
-56, -64, -60, 
-66, -65, -73, 
-75, -73, -85, 
-73, -100, -75 
, -100, -73, -1 
25 

1160: DATA -75, - 13 
7,-78, -165, - 

77.6, 164, -72 
, 170, -68, 155 
, -66, 135, -66 
, 115, -66, 30, 
-63. 5 


1170: DATA 75, -68, 
70, -65, 55, -6 
9, 40, -70, 20, 
-70, 0, -71, -1 
0, -í>4, -23, -7 
8 -35, -75, -6 
0, -67 

1180:DATA -61,-64 
. 3? “53, DOj 
55 

1 130: DATA 7, 3. 7, 8 
0, 7, 82, 6. 5, 8 
1.8, 6. 3, 80.5 

■JJ’JflJ’ 73 

,200:D ? TO «,45.5 

145.7, 42, 143 
, 42.6, 

40 . 6 , 140 ? 38 

2, 133.6, 37, 1 
36. 3 

1210: DATA .35.6, 13 

9.7, 35.6, 133 
, 34, 130. 3, 32 
. 3, 132, 31.4, 
131.3,31-2, 1 
30. 2, 33 - 3, 12 


1220:DATA 34,130. 
9, 34.5, 135, 3 

3.5, 135.7, 36 
, 140.6, 39.8, 
142, 42.5, 139 
.7, 43.5, 141. 

4, 45.5 

1230:DATA 141.8, 1 

1.6, 95, 1,7, 9 
8,8, -3.2, 101 
, 6, -5.9, 105, 
7, -6.6, 114.2 
, -8.6, 114.5 

1240:DATA -7.1, 10 

5.6, -2,9, 105 
. 9, . 4, 103.6, 

5, 37. 5, 6, 95, 

6, 1.3, 103.3, 

7, 116.9, 5, 11 
S 3, - 4 

1250:DATA 116,-2. 
9, 1 10.3, 1 . 9? 
109*3? 11, 0? 1 
30? -2. 5? 141? 
-6.5, 148, ™6* 

8, 146. 8, -10. 
7, 151 

1260: DATA -2*7, 14 
4*3? -3.3? 143 
■ -8, 138.4, -5 
*4, 138, 1, -4, 

133* 1, 0, 130? 
14, -34.5, 172 
. 7 

1270:DATA -36*7, 1 
75.3, -37- 5, 1 
76, -38, 177. 3 
, -37. 4? 178.5 
, -41.6, 175.5 
? -40*6, 172.S 
1280: DATA -42.8, 1 
71? -46? 166.2 
? -46. 7, 163.4 
? -48. 2, 175*3 
, -33. 3? 174, - 
37.7, 174.8, - 
34*5 

1290:OATA 172.7 
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disno que pasa por el eje de la 
Tierra y el eje vertical; y Cuadrícu¬ 
la nos interroga sobre el intervalo 
entre ¡os meridianos y paralelos. 
Si Cuadrícufa=0, estas líneas no 
aparecen, 

Paso pide el incremento con el 
que varía eí argumento a cada 
paso. Un valor pequeño dará una 
figura más definida, pero perdere¬ 
mos velocidad. Por contra un valor 
demasiado elevado dará unas cir¬ 




cunferencias cuadradas . Un va¬ 
lor de 6 ó 7 será suficiente. 

Después de estas cuestiones 
podemos optar en dos aspectos; 
Transparente, que permite visua¬ 
lizar la cara oculta del globo su¬ 
perpuesta a la cara visible, y Co¬ 
lor, que nos dará un diseño en 
colores. 

El principio del trazado es bien 
simple: meridianos y paralelos son 
trazados por dos bucles que calcu¬ 
lan la fatitud y la longitud automá¬ 




ticamente. Los puntos del trazado 
están contenidos en las DATA, y 
una subrutina, de 290 a 360, cal¬ 
cula z para determinar si cada 
punto es visible o no (causa de la 
opción transparencia), luego de¬ 
termina x e y antes de trazar la 
línea. 

Las fórmulas empleadas en la 
subrutina son simplemente los 
cosenos directores para el doble 
cambio de coordenadas debido a 
las rotaciones alfa fcx} y beta (Q }. 

Este programa fue optimizado 
para que cupiese en 6 Ko de me¬ 
moria. De esta forma, con la am¬ 
pliación de memoria de 4 Ko es 
suficiente para su funcionamien¬ 
to. □ 


José Baume 
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VIC 

20 

ORIC 





Tic - Tac 
Tic - Tac 
en Vic 
y en Oric 


VIC - 201 


¿No tenéis reloj? ¡Yo tampoco! ¿Sabéis la hora 
que es? ¿No? Entonces, introducir este pro¬ 
grama en un Vic 20, ponerlo en hora, y no ten¬ 
dréis ninguna excusa para llegar tarde a vuestras 
ocupaciones. 


Redescubrid el viejo reloj de 
manecillas con este programa que 
utiliza fos gráficos de alta resolu¬ 
ción del Vic 20 y algunas de las 
funciones Basic del cartucho $u- 
per Expander. 

Para trabajar con un reloj de 
manecillas es necesario utilizar 
fórmulas circulares. La función 
CIRCLE sólo permite el dibujo de 
circunferencias en trazo continuo, 
nosotros lo haremos con trazos 
discontinuos. 

Dado un círculo (ver figura), las 
coordenadas del punto M vienen 
definidas por: 

X=sin(a)*K, 

Y=cos(a)*K, 


K: radio, 

A: ángulo YCM 
De esta forma, para trazar un 
círculo en vuestra pantalla, es 
suficiente elegir: el centro C (aquí 
490); el radio K; el ángulo en 
grados que pasaremos a radianes 
mediante: A (radianes) = R (gra- 
dos) # PI{3,14}/180 + 

La fórmula del círculo pasa a 
ser 

FOR R=0 TO 360 STEP Z 
A=R*PI/180 
X=e+K # sin(A) # 0,7 
Y“C-K*cos(A) 

POINT 2,X,Y:NEXT R 
con Z igual al ángulo que nos 
permite el espaciado entre los 
puntos que constituyen el círculo. 


Así por ejemplo: cuadrante de 
las horas K=300, Z=3Ü {línea 80); 
cuadrante de los minutos K=33Ü, 
Z=6 (línea 90), 

Una vez terminada la escala 
(líneas 8 a 90), pasemos a las 
manecillas. La de las horas se 
desplaza Z=6 grados cada 12 
minutos. Es posicionada en las 
líneas 110 y 112 y comienza a 
moverse en la 11 5. De igual forma 
se posiciona la manecilla de los 
minutos en la línea 120 comen¬ 
zando a girar en la 130. Y, para 
terminar, mediante la función Tl$ 
(líneas 140-171) se programan 
ios segundos. 



Es todo, no más problemas 
horarios: en todo momento vues¬ 
tro ordenador os mostrará la hora. 
Sin embargo, los cambios hora¬ 
rios de invierno y verano no están 
programados. Pero es posible que 
usted mismo se anime a ello. 
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Programa para Víc 20 


Í2@j i i 0.■ í 1 0 : PRXNi 
í!: CHfiR9* Í5 j K 3 t!: CHRR3 


ii-íriR 


CHhk 


:hh^' 


DRRW0 .r C.-C¡ 00 
I¡KRbi0 _■ cC ■ Ob 


CUADRO 1 


LISTA DE VARIABLES 


AS: horas HHMMSS 
H: horas HH 
M: minutos MM 
SI: segundos SS 
C: centro del círculo 490 
K: radios 

Z: ángulos en grados 

DD: ángulo inicia! de la manecilla 

de fas horas 

D: ángulo inicial de la manecilla 
de los minutos 

F: ángulo inicial del punto de los 

segundos 

(EM (0,P); (X,Y) 

Estas coordenadas sirven, a partir 
de C, para trazar respectivamente 
la manecilla de las horas f de los 
minutos, y el punto de los se¬ 
gundos . _ 


¡Como decías ayer: no se 
nota una gran diferencia! 


CHIMO LOS 
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CUADRO 2 


1 1 



ORIC 


RELOJORIC 


El programa para Oric per¬ 
mite obtener la representa¬ 
ción horaria permanente a 
la décima de segundo. 
Completará, después de su 
adaptación, al del Vic 20. 


Descripción del programa Basic 


Líneas 100-300: escriben el pro¬ 
grama ensamblador en la cabe¬ 
cera de la RAM. 

Líneas 500 y 5JO: inicializan la 
hora. 

Lineas 400 y 600: direccionan el 
fin de la interrupción hacia el 
programa reloj (reemplaza el fí TI 
por un JUMP$9700). 

Línea 595: dobla la velocidad de 
repetición. 


Descripción del programa en¬ 
samblador 

Líneas 1000-1030: cuentan 20 
interrupciones para una décima 
de segundo. 

Líneas í 050- 1060: inicializan los 
registros. 

Líneas 1070-1110: visualizan las 
décimas de segundo. 

Líneas 1120-1210: visualizan los 
minutos y segundos. 

Líneas 1220 hasta el final: visua¬ 
lizan las horas. 






Programa para Oric y... 


10 RFM RELOJ ORI C- 

i AO«#230 ■ ' FOKEfHC-, DR 

1 80 RESTURE 
1 IB fiD*»9700:HIMEmD 
1 £0 AD=#5-700 
1 50 REPEAT 
Zm REAPDR 
Z 10 ROKEHD,DA 
£90 flD-flD+l 
^00 UNTlLOfl-tfFF 
¿00 flt?=#£31 .Pfl=#9700:p0KEflI>,DH 
5 00 

5 10 REPEfiT ■ REñPOñ : PQKEflD, 00: HD-RD+1 ■ UNT I LDR»tt£0 

560 POKE#9?F0,0 

5 95 DOKE#30e,#£7LIB^2 

(5 00 PÚKE#230,76 

1000 DRTR(Me J #©A # #4^#S8,#48 

1010 DflTflRRE,#F0 j #9?,«ES,#£0,#14 

1020 6RTñ#F0.#10,#9E,#F0,#97- 

1 030 t>ATR#6a, ttRS , #66, #Rfi ,360,340 

1040 0010*00,0,0,0,0,0,8 

1 050 DflTR#fl9i 0, #SE>, #F0, #97, #H3, #30 

1060 DFlTFr#Fi2,#3 

1070 DñTi4#EC,#90,#BB,#C0,#C0, #3A,#F0,#7,#9S 
10S0 E>RTFl*9D, #90, #EB, #4C ,#10, #97 
1090 DRTfl#ft9,#30 


1100 OPTft#9D J #?0,ttEÍ,*Cfl J #E0 J 3 
1110 PRTRÍD0,#E?,#CA 

1120 DRTf=HI®C,#30 J #3F,#CB,#C0,#3R,#F0 J #e?,#9S . 

1130 [jRTR# 9C-, #90i # J?B, #46, # 10, #97 
1140 DRTftáflS,#30 
1150 0RTfl#9E>,#90,#3®, *Cfl 

1160 0HTFi#FC, #90, #B£, #CS ,#00, #36, #F0, #0?, #98 
1190 DRTft#9D,#90.#BB,#4C,#18,#97 
1190 DRTR#FI9, #30 
1£00 DRTñ#9D,#90,#EB,#Cfl,#E0,£ 

1£10 PRTRtfDQ,#01.#CR 

1 ££0 DRTFl#B6#90, #EB, #C9, #C0, #3fí, #F8, #24 
1230 DRTH#C0,#34,*F0,#7,#9S,#90,#90,#BB 
1£40 DATR #40,#10,#97 
1250 DñT A#B£>,#8F r #BB,# C9,# 32 
1260 DflTft#F0,#7, #93, #90, #98, #BB 
1270 D9Tñ#4C,#10,#37 

1290 0RTR#R9, #30, #9D, #SF, #BB, #90, #90 , #BB 

1290 DRTFI#4C,#Í0,#97 

13B0 DRTR#fl9,#30,#9D,#90,#BB 

\ 310 DflTR#CR,#BC, #90,#BB,#C®j#39 

1 320 DflTft#9[>, #90 - #BE , #4£ , #13, #97 

2000 0RTR#FF 

2050 REM CODIGO HORA DE PARTIDA 

21O0 DRTRÍ32,#30,#3R„#33,#30,#3A,#38, #30,#3R,#3&, #20 



en ensamblador 



9700 

46 



PHfl 














BB 

STA 

ID 

9777 

CO 

34 


CPY 

#• 34 

;8 

9701 

Sh 



TXA 



¡D 

971D 

R9 

OO 


LDA 

## 00 

D 

9749 

9D 

90 

* BB90,X 

0 

9779 

FO 

07 


BEQ 

* 9702 

:D 

9702 

40 



PHA 



lü 

971F 

0B 

FO 

97 

STO 

t 97F0 

D 

97 4C 

4C 

10 

97 * 

JMP 

* 9710 

D 

97 7B 

90 



TYA 


íD 

9703 

9S 



TYA 



: D 

9722 

R9 

30 


LOA 

#* 30 

D 

97 AF 

09 

30 


LDA 

#» 30 

D 

97 7C 

9D 

90 

BB 

STA 

* BB90 t X 

iO 

9704 

40 



PHA 



!D 

9724 

02 

09 


LDK 

## 09 

D 

9751 

9D 

90 

BB 

STO 

* BEBO, X 

D 

977F 

4C 

10 

97 

JMP 

* 97101 

:0 

9705 

RE 

fq 

97 

LDX 

* 

97F0 

tD 

9726 

BC 

9Í( 

BB 

LDV 

* BB90,X 

D 

9754 

CA 



DEX 


D 

9762 

BD 

0F 

BB 

LDA 

* BB0F,X 

íD 

97O0 

EB 



ÍNX 



;d 

9729 

ce 



INY 


0 

9735 

BC 

90 

BB 

LDV 

* BB90 + X 

D 

9785 

C9 

32 


CMP 

#* 32 

:□ 

9709 

EO 

14 


CPx 

#1 

14 

: D 

3720 

co 

30 


CPY 

#« 3A 

D 

9758 

ce 



INY 


0 

9707 

FO 

07 


BEO 

• 9790 

¡D 

970B 

FO 

10 


BEQ 

* 

97 ID 

: D 

97 2C 

F0 

07 


BEO 

* 9733 

D 

9759 

co 

36 


CPY 

#• 36 

D 

9709 

90 



IVA 


: D 

970D 

BE 

F0 

97 

5TX 

* 

97F0 

íD 

97 2E 

9S 



TYA 


D 

975B 

FO 

07 


BEO 

* 9764 

D 

9780 

9D 

90 

BB 

STO 

* BB90,X 

:D 

9710 

60 



PLA 



:P 

97 íF 

9D 

90 

BB 

STO 

* BB90,X 

D 

975D 

96 



TYfl 


D 

970D 

4C 

10 

97 

JMP 

* 9710 

:D 

9711 

A0 



TAY 



:D 

9732 

£.C 

10 

97 

JMP 

» 9710 

D 

975E 

9D 

90 

BB 

STA 

* BB90,K 

D 

9790 

A9 

30 


LDA 

#* 30 

:D 

9712 

60 



PL« 



iD 

9735 

09 

30 


LDA 

## 30 

íD 

9761 

4C 

10 

97 

jnp 

* 9710 

D 

9792 

9D 

SF 

BB 

STA 

* BB0F t X 

; 0 

9713 

OA 



TAX 



:D 

9737 

9D 

90 

BB 

STA 

% BB90,X 

: D 

9764 

A9 

30 


LDA 

#* 30 

;D 

9795 

9D 

90 

BB 

STO 

» B B90,X 

;D 

9714 

60 



PLA 



: D 

9730 

CA 



DEX 


ID 

9766 

9D 

90 

BB 

STA 

> BB90,X 

D 

97 9S 

4C 

10 

97 

JMP 

*9710 

:Ü 

9715 

40 



RTI 



:D 

973B 

EO 

OS 


CPX 

#* oe 

¡O 

9769 

CO 

l 


DEx 


¡0 

9790 

A9 

30 


LDO 

## 30 

:D 

9716 

00 



BRK 



¡D 

973D 

DO 

E7 


BNE 

* 972E 

¡D 

9760 

EO 

02 


CPX 

#♦ 02 

D 

97 9 D 

9D 

90 

BB 

STO 

» BB90, X 

■D 

9717 

00 



BRK 



íD 

973F 

CA 



DEX 


■■D 

976C 

DO 

DI 


BNE 

* 973F 

rD 

97 HO 

CO 



DEX 


¡0 

97ie 

00 



BRK 



;D 

740 

BC 90 BB 

LDY ! 

1 BB90,X 

¡D 

976E 

CO 



DEX 


rD 

7A1 

BC 90 

*B 

LDY 1 

i BB90,X 

■ü 

9719 

00 



BftK 



ID 

9743 

CS 



INY 


:D 

976F 

BC 

90 

BB 

LDY 

t BB90,X 

: D 

97A4 

ce 



INY 


;D 

97 IR 

00 



BRh 



:Q 

9744 

CO 

30 


COY 

#t 3A 

: D 

9772 

CS 



INY 


0 

9705 

98 



TYO 


:D 

971 B 

00 



BRK 



ID 

974 

FO 07 


BEO : 

» 974 F 

: D 

9773 

co 

3A 


CPY 

#*30 

D 

9706 

90 

90 

BB 

STA 

* BD90 t X 

íD 

97IC 

00 



BRK 



ID 

9748 

9S 



TYR 


:D 

9773 

FO 

24 


BEQ 

* 979B 

D 

9709 

4C 

10 

9^ 

TMP 

* 9710 


Raymond Saxema y Andró Thé- 
venin 
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FIRST S.A 


SIGUE SIENDO 
VERANO 
EN FIRST, 


C/ Aribau, 62. BARCELONA- 03011 

Tel. (93) 323 03 90 

Tlx. 53947 FIRS E (ESPAÑA) , 


COMPUPRO 


FLOPPY DISK DRIWE PARA APPLE II y APPLE ME 
100% APPLE COMPATIBLE ORIVES 


0 m*niA|* 4* ipriji A to *»•* IINPUl 
„ EM*i¡ & ÍLLr.JwJ O* i- pPOBríftí 
rr,-, áipiM ■* Er*0uKiHOi * tu 

Mi* MJtVDS í»«¡S»ulS£ 

, .J - I 1L nr1>1¡ IS IF THEPi H&JAM 
ri^lai C uA 4'i*' ai dC* 4 n A -R-rt 

£WAP x i rtRrtJPHM rttortr S* 
■ A 1 JWfi TONE :+■ W* ™VKVt ™ 
Mkti V ¿alto SCRl, u:rt4 4* TU I*iin- 


l6k 34 220 P(*S 

48k 4j $50 

Solicite nueEUC FABULOSO CATALOGO de &m 
yrin-di pfl'B tu Q'deradar 
CATALOGO 561o de orog ranas para Su ordena¬ 
dor, mande $0 pías *n inilo* de correos 


PTAS 


FIRST. S.A. IMPQflTAPQfi PAfl.Á ESPAÑ A DE CQMPvPRÜ 


€ 

A 

C 

C 

E 

S 

O 

R 

I 

O 

s 

# 


TARJETA 1GK RAM ....._. 14.000 Ptas 

TARJETA 128K RAM 50 000 Pías 

FLOPPY DISK DAIVE 55980 PlSJ. 

TARJETA 

CONTROLADORA 10 500 Pías 

TARJETA Z--BQ jCP/MJ 14 000 Ptas 
TARJETA ANA DIGITAL LLAME 

TARJETA RELOJ 19 000 Ptas 

TARJETA PAL 15-500 Ptas 

TARJETA SINTÉ MUStC 32.077 Pías 

TARJETA PARALELO IM 15. OOO Ptas. 

TARJETA SERIE ÍMPRE 23 000 Pías 

VERSAWRITER 48 272 Ptas 

T COMUNICARON S CARO"' 13 500 Pías 
TRACKBALL ... 12-889 Ptas 

MODULADOR RF 3 280 Pías 

MONITORES VARIAS 
MARCAS Y TIPOS LLAME 

REPEATERRR 2.260 Pt9* 


118.500 PTAS. 


- 64 KRAM — A bSOluia mente compatible con 

los. programas di SU 


— ios progri 

% 


ErgoVisión 


WINCHESTERS MAS 
PERSONALES 



£ jjLqVHP Ariíción TST2 FiKl EHj# L* 

■í.nj J 5* MItD «eú* Ceuntf 1» 1 

WS45 GOTO ¥ HQSUi * ICO- 

Suí TU o MSUA 4 ■ II MdO* «™ 

rsatKto =*>■ u* iwkH* 

CjiaM írri-4 t t» ie«e HEM *" lh ' 

VE RÍÍ. lAáquH'íí* *1 

FAameup 

P.e*#ñLKrf]e+t L?‘ül**icrtolri fcr*r,*tar. 
(TWkío ¿.i grefee* di Alt* Brío ü*-i 
B*ta v f*iio *n «rtcliym Litmi en 
rrowiirM*n;o. C*rg* no-da de ALA*» 
*rt 2 *rí¡ Au*r^e rainíren oo¡ padd<* o 
IMEidO ÍÜK s™* ihowi un, tu »r*n 
i ton í*V (jrjr i di c-íOrO'J'arnWíai *Hdt 
1 * W sed Y n^jehat mi £K>-rt>p-f-£ 


AlPNA PlOT 
BÉAGlEflAÍ 
B EAGLi BASIC 
APPIE MECHA NIC 

INFORMACION EN LINEA?' INTEC 5 MEGA BYTE $ «b «« 

(conexión con su El + /UE o 8ASE &4 A r traban eo los 3 f&amme ue 
sistemas operativos IDOS 3.3, CF/M y PASCALj, tITpíFacesiam 



PTAS 


JOV s TI c K K RAFT 11 000 Pía 3 

iPara Apple: II+v II Él 

QUiCKVLS 3 700 Pías. 

PADDLE KHAFT 11 000 Pías 

iPara Aopie n +y |i C 
jgVSTlCK iKHAFT 

P*|» IBM PC)n íaiMPia* 

PADDLE IK HAFT pfl ra 10M PC) n 1 2.100 Pía 5 
■ FIRST S a importado* pa-a Ew«ífta de PÍRAFT 
liJíf *m*fic*no d« Joyaticks y Peddlea 


FIRST S.A. 
Imponsdot para 
Eipdña de 


SWITCH-A-SLOT 


díiJíflfíe* 




? CAJA 
DE 11 0. 
3,960 P. 


4U.PTAS 

EXTEND-A-SLOT 


Auténtico tablero gráfico da dibujo para sos or 
desadores Apple, BASE 64 A, IBM PC oXT. 

KOALA PAD para Apple II, + HE y C6ASE 64 A 28.450 Ptas. 
KOALA PAD pera I0M PC oXT 32 650Pt?s 


TARJETA A/D 
4 CANALES 
12 BITS 

34.059 
¡T PTAS. 

FIRST, S.A. Importador para 
España de KEYZONE LTD 


FIRST. S.A IMPORTADOR FARA ESPAÑA DE 
SOUTHERN CALIFORNIA RESEARCH GROUP 


Y es que en- verano, aún es más increíble en 
First, fíjate: 

Tarjeta CP/M a 14.000. tarjeta SO columnas 
14.999, tarjeta CP/M + tarjeta 80 columnas' 
+ regalo sorpresa First a 28 000. impresora 
Star Genmni ÍQ X + Interface Mi croan ge lo a 
79.500 Ptas. Sen cilla mente increíble. ..í’! 11 Di&- 
kettes Verbatin Datalife: una caja de 10 disket- 
tes4 2 más para limpieza del cabezal al sensa¬ 
cional precio de 5,300 Ptas. Además... Nibble 
es fantástico...'1111 Nibble Vol, 5.2 a 780 Ptas., 
Nibble Vol. 5.3 a 780 Ptas, Nibble Vol. 5.4 a 
780 Ptas., Nibble Express Vol I a 3.925 ptas., 
Nibble Express Vol. IV a 4.825 Ptas. Y tienen 
de todo, como tarjetas: reloj a 19.Q00 Ptas., 
sintetizado!- de voz a 19,000 Ptas, Wilcard a 
17.000 Ptas, RS 232 serie a 14.000 Ptas., 4 
canales 8 BIT A/D Convener 28.383 Ptas, y 
más de 50 tipos de accesorios más y todos en 
stock a los mós increíbles y fascinantes precios 
del mercado mundial, con el asesora miento 
científico de First. 


SUPER JOYSTICK 


COMPATIBLE CON 
COMMODQRE 64 y VlC 20 
SINCLAIR Ipr&eisa im&rll 

atari 

$PECTflAVlDEQ -l ^tí 


MICROAMGELO 


fy, Id ra.iy. PODEfiQSA n:*rfac* pí'ji^- ¡ti.i■ 

-h . nfi-íL4:V* In-L::-" Sla- ' *n I 


Si etem. Mi imandü Siempre- compra 
en First dice que son Fantásticos, 
Claro First son los priTMrotfH 


LIBROS 


incomparable 


VIDEO TEAM = i tí Míi ^Ui 

ULTflATERM . 132 Coi,mn« 69 540 Ptdx 

Eprom ilnversE E xpd -'i-i - 

gfjficdt ele: 5-Sl S Pí*» 

SOFTSWICHT HI+-« ilE i B.010 Pt« 

£ N HANCE R EL F U N CTi ON STftlP 3C S 0 B Pui. 
PSIO Iperaleip. s^ne y 

1 elBcomuniííc.ionfl*| .. 39.644 Pus. 

VID EX mva-s(i.ga p^ra Yd 
FLST S.A. se I-ir Ei dirtCI» con VI Df x 

TARJETA 80 COLUMNAS 

APPLE II E (SLOT AUX) 

Aftora. putdt Lennr Sulinlicaa 00 columnas. Ma¬ 
nual «n nsnañoi ríe como (rebajan ideal par* aVj 
Tié, Üf PF5 IIE, Bit FIST, S.A. importador para 
Ehj?A? títKEYZONE LTD 

TAR. BQ COL APPLE N E i AUX i 1 7 ÜOO Pía» 

TAR. 00 COL. *04K RAM APPlE 

IIE |AUX| 35.000 Pta.s 




PLOTTER GRAFICO 


- V ilC »LL I t ? 

: wgHaílA* 2 E 


MANZANA 


CATÜ.OOO 


souorf NiüEsreo catalogo 


PAPEL ESPECIAL PARA VD 


2 540 Hojae da pipa' Iborda* par. 

Uttül). SufMrblantO. Cruaso. S4í 4 456 P tas. 
2.540 Recibo* nígansbiíi 

standard 4 553 Pl** 

1.OT0 Eliquelí s airtoadheim* * 

2 sllnaai S?8Puj 

TfrTTTRffl//¿7¿Z7 

FJI;, ■ . ■ - 

Todo : ¿. i. ■;> ■ i- ■■■ i'i uqa 

SPECTRAviOEO -J' r- SL ■ »e.i U s v*a 

nuflírre eipoSEíid-n FA B ULO SO 1 !M 


Para sus ordenaíurtv App:e n II R. BA6í &4A 
IBM PC 4 XT id*0 Dar* SI Desirrollo y Proceso üe 
Giílicoj de Gallón Gráficos de ingeniería y 
TrAri&[>aíÍ 8 i'C* 3 S Se suministra con Software liitd 
para funcionar. Solide información detallada en 

ios Perlera firST. 

IncFuye: PíóttSr. Manual y DiK 4 S4P4tte para su 
Apple &. 6ASÉ 64 A. Programa Apple Bu&inast 
Graofiica con Manual y Programa Auxiliar 

SWÉET P [INTRODUCCION! .1 60 OOOPts 
FIRST S.A importador de ENTER COMPUTEA 


’C*U!^g«dr rtadware 

■fíes Caiai99<>F r* u«o 

•Ver nprmds en V*nii poi CDr>eu> 

VENTA FOfi COUREO 
Manclí Jv pedido Ragú Talón c&morma- 
dm o giro poiia Reúiúos mlenores a 
4 600 PTs sume tíO Res gitioí envío 
Píd'dOS de liD'OS sólo no sume nmgyA 
gaslo de anuio Cai4l*gó mande ZOO Pis 
en senos Pedidos OFf Rt A Df! MÉS 
sume 160 Pts gasios ónviti isa . Que 
tuda otros árpenlos uu* no sean c - Jler- 
ul 

La preseme l-sla de precios es snídeoi" 
jh f*l <ía *íule**t* * w.0v(incui.i pie de ser modificada sin óvitfl preuid 



uriLiTv £mr *ó3BPrs 


CpN TASiliQAD 

Todn 1.! CLkr-ilM* Gilmpc Om Síj-v 
|M¡ M Mlvor AuhAK-MI tu* 

Dipi a o* Mu. i-«iEui Ljutté -3« pv-iDdc 
I l'.taOt :5ilulrt* ae Sul íutnit íw 
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Integración por el 
método Simpson 
con el ZX Spectrum 

Aunque este programa no sea un juego ni, para 
muchos, resulte nada divertido, reviste una gran 
utilidad a la hora de resolver integrales definidas 
en un intervalo. ¡Animo, pues, que no le va a 
costar ni cinco minutos introducir esta solución a 
sus integrales! V, por una remota, remotísima 
posibilidad, no le interesa Simpson, allá usted con 
Chébishev. 


10 f?EM integración por sispscn 
integrales definidas, 

£0 reh 1933 Javier Roldan 
30 REM COPYRIGHT el autor y 
El ordenador Personal 
100 rem ottener datos. Definir 
dx y e , 
e =EXP i 

"integra r?", LINE ** 
"Primer punto del int 


105 
110 
120 
130 
: r v a l 
14.0 
150 

* " . ffi 

", =;e; 

^ V_F 

•¡O TD 
160 
170 
175 
100 
190 
£00 
£10 
22 © 
230 

£40 

250 

ase 

£70 

23 © 


LET 
LET 
INPUT 
INPUT 


IÑPUT 

INPUT 


•'Segundo punto?'', b 
"Numero de divisiones 


300 

310 

315 
5£0 
539 
*SiJ 
340 
350 
ER 2 ; 


JF «,.;=© OR m-JNl »<>0 THtzhi 

REM^Ha liar y f 0 i .basta y *»■' 
DIN y( 2 *»j 

LET iX = íb-ai / ( 2 *s¡t 
FOR r=l TO 2 *» 

LET x=X+iX 
LET y í r >=<JRL a $ 

NEXT r 

reh La regla de Simpson se 
pone en marcha 
LET sl =0 
LET s £=0 

FOR r=l TO 2 üTEP 2 
let si=¿i+y frj 
NEXT r 

FÜR r=¿ TÜ 2**-i dtep - 

let s£=s£+y irí 

i f— r y ■ Li y 0 “VhL a S 
LET x=b : LET y£»=OBL e$ 

let f = (Íxy 3 í * fyo+s#a»+»**»■*■«- 


PRINT "La SOlUC !?£.= £* \ 

PRINT RT 21 , 0 , ELP^H_ 1 , 

INK 5 ; BRIGWT 1 ;"GTRR 


P 3 P 

UEZ? 


III iS U INKEYSi>"N" OND INKEYfí 

•n" THEM PRINT RT 21 , 8 ;” 

RUN 

3 S 0 PRXNT RT 2 : 1 , 0 ;" 


4.00 STOP 
9000 SfiUE 


f SiJ>pson 4t 


El programa avanza de unafor- 
ma totalmente lineal, por io que 
resulta fácil de comprender y 
adaptar. Sí, de adaptar, porque 
aunque esté concebido en BASIC 
Sinclair, no costará demasiado 
trabajo escribirlo en cualquier 
otro microordenador. 

Lo primero que encontramos si 
leemos el programa (aparte de los 
inevitables REMs} es una defini¬ 
ción del número e y de una 
variable llamada dx. La primera 
sólo obedece a razones prácticas, 
ya que —e— se presenta muy a 
menudo en resolución de integra¬ 
les. En cuanto a la segunda, no es 
más que diferencial de x, dato 
ineluctable en una integral de¬ 
cente. 

Mediante cuadro INPUTs, el 
ordenador se entera de lo que 
queremos que haga. La función 
que se va a integrar se introduce 
mediante una variable de cadena 
precedida de la sentencia UNE. Al 
posible profano del Lenguaje del 
Spectrum, le diré que LIME es 
perfectamente suprimidle; el que 
use este mismo ordenador com¬ 
prenderá pronto por qué está ahí. 
En lo que se refiere al número de 
divisiones, esto permite aumentar 
o disminuir el error, según nues¬ 
tras necesidades de cada mo¬ 
mento. En realidad el número de 
divisiones es doble del que se 
introduce, con vistas a que siem¬ 
pre sea par. Esto reduce el error, y 
no creo que moleste a nadie. 

En la línea 170 hay una matriz 
de la que hablaremos más tarde. 
En la 175 inicializamos el valor de 
x, haciéndole corresponder el del 
primer punto def intervalo. Más 
tarde definimos ix (incremento de 
x) y hallamos, gracias a un bucle, 
los diferentes valores de y En la 
línea 230 será mejor que haga¬ 
mos caso al REM y escribamos la 
fórmula de las parábolas: 


■ \ 2^1 21 ■ 1 v 3 s. 2rr‘> 1 ii 

Como se deduce claramente, si 
es la sumatoria de los valores y 
con subíndice impar y s2 la de los 
de subíndice par. Ya con esto, solo 
falta hallar yO e y2m usando la 
función VAL, que ya nos sirvió 
antes. Y el programa queda total¬ 
mente desvelado. 

Para finalizar, las líneas 350 a 
380 son meros adornos 

Javier Roldán (Granada) 

Nota de 9a redacción: 

Hemos añadido en este programa las 
líneas 400 y 9000 para facilitar su 
grabación , y ta 155 r que asegura que ef 
número de divisiones sea un número 
entero y positivo. 


L 






Quilopus 

o cómo pasarlo bien 
matando gusanos 


¿Quiere probar su habilidad matando gusanos? 
Gracias a su Atom, podrá pasar buenos ratos diver¬ 
tidos con este programa. Además sin alterar con 
ello el equilibrio ecológico. 

Pero, cuidado puede ser invadido con gran 
facilidad y sólo dispone de 3 vidas. 


En este juego debe usted des¬ 
truir una plaga de gusanos que 
han invadido una plantación de 
setas; cuenta para ello con tres 
fumigadores en cada partida. 

Las rutinas críticas de! pro¬ 
grama han sido realizadas en 
ensamblador para que el juego 
tenga el mayor realismo posible. 
La descripción del juego es senci¬ 
lla: El gusano aparece en la parte 
superior de (a pantalla, que está 
[lena de setas. Los disparos pue¬ 
den alcanzar a una seta, (acciona¬ 
dos por la tecla ]), en cuyo caso 
destruyen media, o al gusano. En 
este último caso el segmento 
alcanzado se convierte en seta y 
las otras dos mitades cobran vida 
independiente. Los segmentos, al 
encontrar una setita en su cami¬ 
no, bajan y cambian su sentido de 
marcha. 

Para mover el cañón fumiga- 
bichos se usan jas teclas CTRL y 
SHIFT, para fograr independencia 
respecto a la tecla de disparo. Si 
los gusanitos han logrado sobre¬ 
pasar su barrera de disparos, aún 
queda una esperanza Pueden ser 
destruidos por el viejo método de 
pisotearlos, {al jugar con el ATOM 
se pisotean con eí cañón, claro). 
Esta facultad desaparece cuando 
ha matado demasiados y el cañón 
se torna oscuro. 


Un fumigador es destruido 
cuando algún segmento llega a 
salirse de la pantalla. Al perder los 
tres con los que cuenta, un men¬ 
saje le indica los puntos consegui¬ 
dos y cómo seguir jugando. Si 
alguien consigue lo que yo no he 
conseguido nunca (vencer todas 
las oleadas}, entonces el pro¬ 
grama se rendirá al faltarle recur¬ 
sos para ganar a semejante fumi¬ 
gador. 

El programa cuenta con soni¬ 
dos de crecimiento de seta, (un 
clac ), de muerte de gusano, y de 
victoria sobre una oleada. 

Sí se ha vencido una oleada, en 
la siguiente aumenta el número 
de segmentos. Recuerde que sí el 
cañón se vuelve oscuro pierde la 
facultad de pisotear. 

El diseño del cañón está en el 
vector S, el del segmento de gusa¬ 
no en el K, y el de la seta en el Q. 

Echemos un vistazo a las ruti¬ 
nas en ensamblador: TT6 realiza 
el movimiento de todos los seg¬ 
mentos, uno a uno. Se vale de 
HHO, que primero examina sí el 
segmento se va a dar con la pared 
o con una seta. 

En ese caso se vale de DDO 
para bajarle y cambiarle el sentido 
de marcha HHO también examina 
si el bicho tiene una bala encima, 
en cuyo caso llama a TTO, que 


pone una seta encima y actualiza 
la lista de segmentos. 

La lista de los segmentos está 
formada por el vector M para los 
bytes bajos, N para los altos y F 
para los sentidos de desplaza¬ 
miento. 

WWO es una rutina usada en 
varios puntos para poner blanco 
bajo la dirección señalada en # 86 
y # 87. 

DD4 lee las teclas CTRL y 
SHIFT y mueve el cañón, previa 
comprobación de que no se sale 
por las paredes, en el sentido indi¬ 
cado. 

MIMO es la rutina que mueve las 
balas. Primero comprueba que 
hay balas que mover; luego tiene 
cuidado de ver si la bala va a dar a 
una seta, en cuyo caso actúa NN2, 
o a un segmento, donde actúa 
MN7 que deja la bala en donde 
está {ya se enterará el bicho de 
que está herido}. 

En ambos casos se actualiza la 
lista de direcciones de las balas 
mediante INN4. Las direcciones de 
las balas están en página cero a 
partir de # 90. 

DD10 comprueba si se ha dis¬ 
parado, y, en ese caso, añade una 
bala más a la lista de balas. 

La rutina ZZO se encarga de los 
sonidos, y se le pasa la frecuencia 
en X y la dirección en Y. 

Sí se quiere modificar el núme¬ 
ro de setas en pantalla, hay que 
modificar el bucle de la línea 
2100 . 

Para modificar el número de 
disparos que se puede hacer hay 
que ir al bucle principal del pro¬ 
grama {líneas 2340 y 2520) y 
modificar la 2400. Por cada dis- 
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10REM 

1IR£ffl - GUSANOS - 

12REN JESUS AYUSO LEÑO 

13REM <C> EL AUTOR Y EL ORDENADOR PERSONAL 

14REN 

15REM 

20DIMHH3,WU2,DD13,TTIO,NN?,K7,Si 
40DIMZZ8 

Ó0DTMF30,N3Q,N30,RO,C1 , LO , Q9 
30DIMF-1 
1OOP,*21 

I20F,I=0 TO 90iHHl=R?N* 

140F. 1=0 TO 1 iDIMP-1; £ 

160:HHO LDY@64;LDX£4 

190:HK1LDA *#86) 3 Y f LDYGO i CHP13 255 

200BEQ DDO 

220 ¡ HH2LDA(#86 ) , Y iCNP02O 
240BNEHH3J -JMPTTO 

260 ¡HH3LDA <#86> * Yj CNPG20;BEQTTO 
2B0LDAK jX? STA í **BÓ) j Y $ TYA 
3Ü0CLCí ADC@32í TAY 
320DEXÍ&NE HH2 
340JMPTT9 

360: DDOLDAttTOj Ch1P<31 i BNEDDi 
380LDA£235í STAft^O 
400J NP DD2 

420 : DD 1 íLDA81iSTAW70 
440:DD2 

460CLC i LDA#96iADC£128jSTAW3ó? BGCDD3 i INC«3 7 

460:DD3CLC í LDA#7Qí ADC#3ÓíSTA#86 

500JMPHH2 

520í WWOLDY0O 

540:WW1 

560LDAHO!STA <#36) , Y 

580TYA? CLC 

Ó00ADCS32? TAY 

ó20CPYG32*4 

640BNEWW1¡RTS 

660:TT6LDAR}STA#71 

660 : TT7LDX#71 ; LD Atf , X ¡ ST A#Bó 

700LDAN r X íSTAWB7 jLDY80J LDAE #8 6 ) ,Y jCMPE20? BEGTT1 O 
720JSRUW0J LDXtt^l!CLC í LDAN,X 
740ADCF, Xi STAW86Í STAMj X 
760LDA F > X;ST A#70 

780JMPHI40; :TT8 LÜX#7 i í LDA«70 í ST AF , X 
SQOLDAttBó;STAM,X¡LDAW87;STAM, X 
820DECtt71? !TT9LDA47IiBNE T T 7 
640RTSÍ:TT10JMPTTO 
860: DD4LDAtt86f ST A#S6 
9BOLDA#89! STA#8? 

90DLDA#BO0IiCMP019 1 \ BEQDD5 
920CMP@12^¡BE0DD6|RTS 
940:DD5LDr^31? LDA <#88) ,Y 

960CMP<3255; BEQDD? ? DEC#88J JSRWWO; JhlPDDS 
980:DD6LDY01? LDA í #3B> t Y;CMPH255 
1COOBE0DD7í INCWBB? JSRWWO 
L020: DDBLDXI3 4 ; LDY80J : DD9LDAS > X 
10405TA í #38) , YlTYAi. CLC? ADC @32 ? T A Y 
LOóODEXtBNEDD9 
1080:DD7RT5 

1 100: NNOLDXL j BEQDD7 í : NN 1 LDA < **90 , X í 
1120LEAe0iSTA í#90,X) í SEC 
1140LDAW90 ,XíSBC@ 128:STAWRQ t X 
1160BCSNM3!DEC#*! , X 
1 IQO:NN3LDA#91.Xí CMP@#79 
1200BE0NN4 \ LDA < #90 3 X J i CNP8255 
122OEE0NN2 

1240CNP£o5í BE0NN7 ?CNPS40Í EEQNN7 
l260CNP£60í BEQNN2 
12B0LÜAE320Í STA í #9Q> X> 

1300:NN5 DEX;DEXjBNENN1?RTS 
1320! NN2LDAtt t3 0 3 X 

1340STA*t86Í LDAttRÍ * X $ STA#87 ¡ JSRWWO 
1360:MN4STXM2800Í:MNóLDA#92,X?STAW90,X 


1380LDA#93 } XiSTA491,Xi1NXJINX 
1400CPX Lí BCCNNói LDXÍÍ2B00 
1420DECL ;DEC L 

1 440JNPNN5Í : NN^í LDAG20! ST A í 4*90 , X ) í JMPNN4 

1460:DD10JSR#FE71?CPY£3 

1480FNEDD1iíLDX L?INX:INX 

15O0LDA#88$ STA#90 3 X 

1520LDASW8BISTAM91jXíSTX L 

1540LDX@4Q? LDYS20 

1560JSRZZ0 

15B0T DD1 LPTS 

itoor TTOLDYeOf LDXHO 

1 620: TT 1LDA0 % X } STA (t*86) , Y; fY,A ¡ CLC 
1640ADC ti 32: TAY? INX;CPX@5 
ÍÓ60BNETT1\INCC JBNE TT2 
1 6B0 1 NC C + r 1 

17 00 : TT2LDXtt71 ? 1 TT3LD AM +■ l , X } ST AN , X ? LD AF + 1 , X \ STAF , X 

17 2QLDAM+1 s X;STAN ^ X\INX 

1 740CPXR 5 BCC TT3 í DECR * INCt*71 

17 60LDA@30? STAW2801J í ZZ5LDYQ20 

178OINCW2B01 

1800LDXW2801 \ CP>:@70; BEQZZ6 
1820JSRZZO;JMP2Z5 
1840:ZZ6RTS 

19ó0:ZZ0STXH2S00Í LDASO 

1880 : zz i Luxttzeoo 

1 900: ZZ2DEXI BNEZZ2 ; DEC#*2S00 
19 20E0RS4? S TAMB0O2 
1940DEYJ BNEZZ1\RTS 

1^601f N. ;F.*6 
1080V-3!H=*82iF 

2000^0=00;0^1-255í e72 = 255? 0^3=60? 074=60 I 075=60 
2020 1 WBá^ttEOOO 

20309K=65iK71 = ó5 5 K?2=40? K?3=40?K^4 = 65? K?5=65 
2O407C=0? V ÍC+i> =0 

205076=170íS^l = i70iS^2=170i6^3=20 \ S74=20í S?5=20 

20607L=0 j ' J R=13? É=1 3 

.20B0vjCLEAR7; COLOURO 

2Í00F, I=0T040íX=80iY = 6? LI.ZZO 

212 0A=#8100+ íA.R.%19>*12e + A.R.%29 

2 1 40F , J=0T05->l-32 S . 32 i A 7 J=Gi? íl/32) ?N. ?N. 

2170F. I=43620 TO H 8TER-#200 i J MBS-11L1.DDOíN. 

2180 1 #88=W8B1O 

2200F.T-0TU 30 
22 10M7 J = 1 í N ?J=í*80í M . 

2220F.I=0 T029íF?I=1tN. 

2240^4*8020=255? 7fti502F = 255 

2260F , I-ttSOOO TO *t8C00 S * 32 ! ? I =255 i 1 ? 30=255 í N , 

2300LI,DD4 

23200=0íLI.DD5 

2340DO 

2360WAIT 

2360LI.TTóiLl,DD4 ÍLI, NNO 
24000=0+1íIF0%3=1 LI.DD1Q 
2420REM 
2440WAIT 

2460LI.NNO? LI.NNO 
24B0WAIT 

2500LI,D D 4¡LI.NNO 
2520U , N71 >4*SB 0R7R=0 
2540IF ? R=0 G-r 
2550^R=E 

260OV-V-1I IF V< =0 GOTO y 
2605H = H + **200 
2610GOTO w 

2¿j 15/P, *1 2“ ha sido i rt vad i do" 1 1 Jt pa r a jugar otra," 

26 i6P* "pulse una t?cla.puntos 1 ,+ 9 i C + 1»#255 

2Ó20LINK 4IFFE3? ?C=Oí?tC+ll “O 
2Ó40G,1980 

2ÓÓOr?R=E+3?IF7R>29G.1 

2680E = ? RíIF 7070 873=60; B^4=60 

2720F.X=30T070iY=9ViLI.ZZOiN* 

2^400.w 

27601 P- % 12 11 HA GANADO 11 1 " NO QUEDAN T^AS lf 
2B20E, 


paro acertado se acumula un 
punto en ?C, y en C?1. 

Aunque no están previstas 
puntuaciones superiores a 256, 
se hace así para modificar !o que 
se quiera. 

Respecto al juego hay que 


advertir que unos segmentos se 
pueden montar en otros y al dis¬ 
parar encontramos con que mata¬ 
mos a uno y salen uno o dos más. 
Si se quiere dar sensación de que 
el gusano mueve fas patitas se 
debe añadir la línea: 


2470 K?1 = 65; K?4 = 65; IF Ü%2 
K?1 = 4; K?4 = 4 

Después de una horita de 
teclear ya se puede empezar a 
matar gusanos y a partir setas. 

_Jesús Ayuso Leño 
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TRADUCTOR 
MONITOR/INTERPRETE 


para MZ-80 B 


Para programar tenemos que utilizar constantemente el inglés. No es cómodo 
para muchos. Os propongo este mes un programa que os permíta cambiar con 
facilidad las instrucciones BASIC por palabras del idioma que os guste más. 


CAMBIO DE LAS INSTRUCCIONES 
BASIC, COMANDOS MONITOR 
Y MENSAJES SISTEMA 

Debido a que tanto e! Monitor como 
el interpretador BASIC del Sharp MZ 
80 B se cargan en RAM es posible 
modificar también la sintaxis de las 
instrucciones BASIC, los camandos del 
monitor y los mensajes del sistema. 
Por ej.: Cambiar la instrucción INPUT 
por ENTRE, ó bien el mensaje de 
“SET TAPE" por "CINTA ?" o inclu¬ 
so los carteles del directorio del disco 
(BTX, BSD, VOLUME No.). 


Estas modificaciones se podrían reali¬ 
zar "manualmente" desde el monitor 
(Cambiando el contenido de las posi¬ 
ciones de memoria corresp.) ó desde 
BASIC a base de POKEs. Pero para 
que resulte más cómodo se puede uti¬ 
lizar un programa como el que os 
adjunto. 

En el programa se solicita el tipo de 
modificación — "MENSAJE / INS¬ 
TRUCCION?" ya que, si bién se alma¬ 
cenan en la misma forma, el último 
carácter de cada instrucción está al¬ 
macenado en el interpretador con el 
código en REVERSE del símbolo 
correspondiente. De esta forma por 


programa se puede cambiar, cuando 
se trata de una instrucción, el último 
carácter por el correspondiente en 
reverse. (ASC=ASC+128)* 

Otro dato que se debe de introducir 
es la dirección de inicio de búsque¬ 
da. Conociendo la zona que debemos 
"explorar" ahorramos mucho tiempo 
sí introducimos como dirección de ini¬ 
cio la correspondiente a esa zona. Por 
ejemplo = Las instrucciones de BASIC 
(La tabla de instrucciones del interpre¬ 
tador) tienen su inicio en la dirección 
decimal 5700 si introducimos esta 
dirección de inicio para la búsqueda 
de una instrucción el tiempo que tar¬ 
dará e! ordenador en damos la respues¬ 
ta será muy inferior al que invertiría 
si la búsqueda se iniciara en la posi¬ 
ción 0000, 

Una consideración importan te: Esta 
controlado por programa que la lon¬ 
gitud de la variable que va a rempla¬ 
zar a la instrucción o cartel sea idénti¬ 
ca a la original; si introdujéramos una 
de mayor longitud destruiríamos los 
datos de las memorias que hubiera a 
continuación, con resultados impre¬ 
visibles. 

Una vez entrados los datos de la ins¬ 
trucción a localizar y la dlrecc* inicial 
aparece en la parte inferior de la pan¬ 
talla un contador de las posiciones que 
se están procesando. Localizado el 
string se visualiza la posición de memo¬ 
ria correspondiente a la localización 
del primer carácter y aparece el men¬ 
saje "REMPLAZAR POR? = " 
indicando que debemos introducir 
la nueva instrucción o mensaje, (ver 
ejemplo de ejecución). 

Hay que tener en cuenta que deter¬ 
minadas instrucciones precisan del pa¬ 
réntesis o del símbolo "$" (Ej,: SIN 
(, LEN (RIGHTS) y por ello al solici¬ 
tar la búsqueda se debe de entrar tam¬ 
bién estos símbolos. 

Para ahorrar tiempo de ejecución he 
resuelto el programa de forma que 
localiza primero solamente el primer 
carácter de la variable (Rutina de 
LOCALIZAR RAPIDO 1 6r CARAC¬ 
TER) y una vez localizado este com- 
prueba que los siguientes correspon¬ 
dan al resto de la variable. De no ser 
así continúa a partir de la dirección 
siguiente a la de localización del 1° 
en búsqueda nuevamente del 1 er 
carácter. 

Como ya es habitual en mis pro¬ 
gramas podréis encontrar la variable 
Z3$, variable utilizada por la ins¬ 
trucción MUSIC para emitir una 
serie de tres pitidos cortos cuando 
se produce una entrada incorrecta. 

COMO CONSEGUIR GUARDAR 

UN JUEGO DE INSTRUCCIONES 
BASIC MODIFICADOS 

Como es lógico una vez se desconecte 
el microordenador o se realice un 


*** -TRADUCTOR 

NONITOR/INTERPRETE *#* 

INSTRUCCION ? 

= INPUT 


LOCALIZADO EN 

POSICION ÍDac, 

) *= 5803 

REMPLAZAR POR 

7 = ENTRE 


■aMWMM 5883 

HHS 
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2 RLn - r r p u c y u R 

■I- FÍEM --- MONITUR / 1NTLRFRETLR - 

4 RE1N --------— - 

5 REM ■ ■ Rutur - J.M. VIDAL l fiCAbrt 

A REM - Copyright EL ALJTDK V 

7 REM - EL ORDENADOR PERSONAL 

O RDM -----------" 

9 KEN 

tu 23$“ lf +DlRo+J:uRO+BiRu" : TEMPO 7 
15 ü ONSOLE SOi 2** * CAO 

20 PRIHT "**# TRADUCTOR MON MOR/INTERPRETE 

SO CURSOR Oí 10 í INPU T "MENSAJE O INSTRUCCION ? (M/IÍ - 1 5 í$ 

90 IF U*-"M HI ) +iT$-=" 1 M ) THE'N <.00 

VQ MUS í C Z3$:GOTO BO 

100 CURSOR Oí 10¡ PR Ji NT S1R1NU$<" ”,340 

llií C$™" H MENSAJL "-IP íí^" ! " fHt.N C$-i NU TRUCC L ON " 

120 CURSOR O*10!PRINI c*;’. 1NFUÍ ”V - " i A* 

125 CURSOR O» 12! INF'UT "POSICION INICIO BUSQUEDA - ” j 1N 
130 ir í 1N<0> *■ \ IN ¿5400) THEIM MUSIC Z3*¡(J01Ü 125 
135 A^LENíA$>5IF THEN 160 

1 40 Rl! jH [ $ (mí , i > : U$=L'HK$ í ASC i U$ u 1 2U) 

150 A*~UiP l$íA$, (A--1 > ) 

160 REM - LOCALIZAR RAPIDO ler CARACTER - ~ 

1 ?0 X-fiSC; ÍL.EFT* <A$, 1 > > = N^IN 
ISO IF FE EX ■: N) — X ÍHEN 250 

1 05 N--N*1í CURSOR 10,20aPHlNÍ “UfifeaiSMaiiini' 1 ? N; " im 
r?U GÜTN 10Ó 

2SO REM ■ ■■ LOCALIZADO leí CARACTER — 

255 O-O fL^N: S^=l = POR F^L. TO <L+A) 

260 Ib CHR$ ÍPELO-: ÍP) > =M1 D$ í A$ » S, 1 > 1 HEN 0=0+1 

265 S«S+1=NEXT P:IF Ü=A i HEN 300 
2/0 N-L+lsüÜTU 105 

■Oo RE N -- LOCAL IZADO . .. 

305 CURSOR O*12: PR 1 H i ■■LOCAL 1 /mDÜ LN POS 1 C L ON i. ¡ - : ' ; L. 
210 CURSOR 0,14¡INPUr " REMPLAZAR POR - 1 ; Nl¿ ¡ NW=LEM i N$ i 
315 1F NU- ; A THEN MUGIO Z3$i GÜIU 310 
320 IF Í^'M" THEN 3 !lX 

325 Ll$—R 1UH J $ (Ní , 1 i í U$ CHR$ < ASE í U* ) + I 2U) 

23o N$-LEC r$ < N* "P < NW 1 > > +U$ 

350 S-JU UR P-L TU ÍL*-h-1) 

355 X - A5C (MI L>* t N$ , S % 1 > > = PULE R , X = E=S * 1 
260 NLXT P!GOTO 1U 


BOOT (Carga del sistema) todas las 
modificaciones entradas desaparece¬ 
rán. Si os interesa crear un nuevo 
juego de instrucciones, por ejemplo 
en castellano (dentro de las limitacio¬ 
nes de la longitud original) y poder 
acceder a el sin tener que modificar 
de nuevo mediante el programa, se¬ 
guir los siguientes pasos: 


1 ° Modificar las instrucciones con el 
programa TRADUCTOR* 

2° Pasar a MONITOR con la instruc¬ 
ción MON. 

3.° Colocar una cinta de cassette vir¬ 
gen y rebobinadla. 

4° Ahora grabaremos una parte del 
interpretador en la cinta, en OBJ* 
para ello una vez en monitor rea¬ 
lizaremos las siguientes operacio¬ 
nes = 

(Nota = estando en Monitor debe 
aparecer un asterisco como Prompt 
del sistema) 

— introductmo una JJ S" {letra ese) 
y pulsamos ENTER (Comando 
SAVE) 


aparecerá en pantalla "FILE ÑA¬ 
ME: "indicando que debemos in¬ 
troducir el nombre del programa 
(16 car.) como ejemplo introdu¬ 
ciremos INTERPRET y pulsamos 
ENTER. 

aparece ahora "S-ADR.S" (START 
ADRESS, dirección de inicio) e 
introducimos 1688 (Direcc, inicio 
tabla instrucciones), 
a continuación responderemos a 
los mensajes de dirección de fin y 


MON 

*S 

FILE NAME=INTERPRET 
S-ftDR-$lóBB 
E-ADR-$18A0 
J-ADR.*1280 
SET TAPE 
* 

J—ADR.$ 1280 

Ready 

CDPY/PI 


dirección de salto (o ejecución): 
E-ADR.$ (END ADRESS) intro¬ 
ducimos 18A8 

J-ADR.S (JUMP ADRESS) intro¬ 
ducimos 1280 (dirección de salida 
del BASIC para que, una vez car¬ 
gado, el programa salte al READY 
de BASIC) 

— Sí no tendamos colocada la cassette 
aparece el mensaje SET TAPE f 
caso contrario se graba ta zona 
que le hemos especificado en el 
cassette, con el nombre de progra¬ 
ma que te habíamos indicado. 

- Una vez grabado podemos verifi¬ 
car que la grabación ha sido co¬ 
rrecta con el comando de moni¬ 
tor: "V" (VERIFY) 

*V 

FILE ÑAME: INTERPRET 
FOUND INTERPRET 
VERIFYNG INTERPRET 
OK (Si todo es correcto aparece 
el mensaje de OK) 

Una vez grabado en cassette e! progra¬ 
ma en OBJ si se dispone de unidad de 
diskettes se puede grabar el programa 
en disco utilizando la utilidad del sis¬ 
tema). Colocamos el disco MASTER 
(o SUBMASTER) en FD1, e introdu¬ 
cimos: RUN "Filing CMT" (o bién 
un RUN directamente del directorio), 
colocamos el cassette, al principio de 
cinta, un dískette en la unidad de dis¬ 
cos FD2 (donde se grabará el progra¬ 
ma). 

Al ejecutar et programa Füing CMT 
aparecerá en pantalla una serie de 
mensajes y nos solicitará la intruduc- 
clón de la unidad de discos en la que 
se va a operar, como el dískette lo 
tenemos puesto en FD2 contestare¬ 
mos con un 2 a la pregunta. Se pone 
en funcionamiento el cassette, se 
carga el programa y una ve 2 cargado 
se graba en el disco. Finalizada la 
operación pulsaremos B para realizar 
un nuevo BOOT del sistema. 

Como leer el programa que hemos 
grabado: Si lo tenemos en disco, po¬ 
demos modificar el programa AUTO 
RUN para que se cargue automática¬ 
mente al realizar la carga del sistema. 
Para ello basta cambiar la línea de 
NEW por: RUN "INTERPRET 1 ' (o el 
nombre con que lo hubiéramos graba¬ 
do) 

-Si por el contrarío no se dispo¬ 
ne de diskettes y el programa está 
almacenado en cinta el programa se 
debe cargar desde MONITOR cada 
vez que se conecte la máquina. Una 
vez cargado el BASIC pasamos a MO¬ 
NITOR (MON), colocamos el cassette 
y utilizamos el comando L (LOAD) 
cuando nos solicite el nombre del pro¬ 
grama podremos omitirlo, pulsando 
ENTER, si el programa está al comien¬ 
zo de la cinta. 

José María Vidal Lacasa 
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GESTION FAMILIAR 


Cuando el ordenador 
administra su tesorería. 


Todo empezó 
con la lectura de los 
anuncios de pisos. Los 
que me gustaban 
estaban fuera del 
alcance de mis 
posibilidades 
económicas; y los que 
sí pensaba poder 
comprar, eran 
demasiado pequeños. 
La única solución 
era comprar un piso de 
tipo medio, pero en mal 
estado, y hacer obras, 
para arreglarlo poco 
a poco. 
Pero esto significaba 
tener que plantearme 
periódicamente la 
misma pregunta: 
¿Cuánto puedo pedir 
prestado e ir 
devolviendo cada mes, 
sin tener que alimentar 
a mi familia sólo con 
pan y cebolla?. 
Por eso empecé el 
estudio detallado de los 
gastos e ingresos 
familiares. En cuanto a 
estos últimos, siendo 
asalariado, no hay 
demasiados problemas 
ni imprevistos. Un 
sueldo, al que se añaden 
las pagas extras y 
algunas "primas" más 
o menos periódicas. 


Antes de planificar gastos "ex¬ 
tras", es imprescindible conocer 
bien los gastos "fijos" que son 
muy distintos, tanto en importe 
como en periodicidad. 

Un estudio del pasado reciente 
permite evaluar y fechar los dis¬ 
tintos elementos. 

• Vivienda: un alquiler (o la 
amortización de un préstamo) 
más los gastos de comunidad y 
los impuestos asociados (son 4 o 
5 para una vivienda). 


• Alimentación: las compras rea¬ 
lizadas en tiendas son bastante 
difíciles de calcular con exacti¬ 
tud, sobre todo cuando se paga 
en efectivo. Pero, vista la impor¬ 
tancia de este capítulo, hay que 
examinarlo muy cuidadosamente 
(sin olvidar los precios de las co¬ 
midas en el comedor de la empre¬ 
sa y en colegios). 

• Servicios: teléfono, luz, gas y 
quizá agua. Al menos una factura 
al mes, más la asistenta. 
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• Vacaciones: viajes, alojamien¬ 
tos, comidas para los miembros 
de la familia (padres e hijos, no 
siempre siguen el mismo itinera¬ 
rio). 

• Vestir: para cada uno de los 
miembros de la familia. Las com¬ 
pras importantes, pagadas con 
tarjeta de crédito, son fáciles de 
analizar. Las compras normales, 
pagadas en efectivo y las compras 
hechas en grandes almaceces, 
pueden verse englobadas en el ca¬ 
pítulo alimentación. 

• Coche (o coches): compra (o 
pago de mensualidades), garage, 
mantenimiento (gasolina, engra¬ 
se, neumáticos...). 

• Niños: importe de los colegios. 

• Ocio: libros, revistas, periódi¬ 
cos, música, brtcolage, regalos 
(Navidad y cumpleaños). 

• Y no olvidar los impuestos: fá¬ 
ciles de localizar pero difíciles de 
prever, sobre todo más allá de 12 
meses (los pagos aumentan cada 
año o principios del mismo). 

Al hacer la suma de todos los 
gastos, aparecen algunos "picos" 
en determinadas fechas. Esto 
confirma que la gestión con hori¬ 
zonte mensual ocasiona, inexora¬ 
blemente, problemas de tesore¬ 
ría. 

Sin embargo, hay que arreglár¬ 
selas para disponer siempre de un 
saldo positivo. Es más, si se es 
muy prudente, conviene que ese 
saldo sea superior a una determi¬ 
nada cantidad, para poder afron¬ 
tar problemas imprevistos: acci¬ 
dente o enfermedad grave.. . 


Previsiones 

difíciles. 

Así, con un minucioso examen 
de las operaciones registradas en 
las cuentas corrientes o cartilla 
de ahorro, se pueden conocer las 
fechas y los importes de los dis¬ 
tintos conceptos, tanto de ios in¬ 
gresos como de los gastos. Es po¬ 
sible, pues, sin demasiada dificul¬ 
tad, hacer la lista y el registro de 
vencimientos de todos los gastos 
imrpescindibles, así como de los 
recursos disponibles. Con o sin 
calculadora de bolsillo (su pre¬ 
sencia disminuye el número de 
errores) se puede hacer una previ¬ 
sión bastante correcta —tal día 
debe ingresarse tal cantidad, tal 
día tanto..y, conocer la can¬ 
tidad disponible en función del 
tiempo. 

Al obrar así, vemos que, junto 
a los gastos claramente definidos, 
se hacen multitud de pequeños 
gastos a lo largo de! año, y éstos 
no aparecen en ninguna cuenta 
por su poco importe: billetes de 
metro, desayunos, correo, perió¬ 
dicos, tintorería, cine, taxis, 
cuestaciones, propinas... 

Son cantidades que correspon¬ 
den a gastos en efectivo, de ios 
cuales hay que excluir los gastos 
de alimentación, ya que si no se 
llegaría a una cantidad importan¬ 
te, difícil de controlar. 

Para todos estos gastos, una 
buena solución puede ser atri¬ 
buirles una cantidad global dia¬ 
ria. 


lf(!) 


3 


£ 
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El ordenador, chito expiatorio 


Esto se logra añadiendo a to¬ 
dos los conceptos anteriores, un 
gasto "constante", que permite 
ajustarse a la realidad, pero que 
no simplifica los cálculos (¿Cuán¬ 
tos días hay entre el 23 de marzo 
y el 7 de abril?). 

Operando así, se obtienen re¬ 
sultados bastante buenos, tanto 
mejores cuanto más precisas 
sean las hipótesis. 

Conociendo los ingresos y gas¬ 
tos "normales", se puede iniciar 
el estudio de los gastos "extraor¬ 
dinarios" —o de una variación de 
los ingresos—. En el ejemplo cita¬ 
do al principio, se trataba de tra¬ 
bajos de reforma del piso. 

Entonces es cuando los cálcu¬ 
los se vuelven fastidiosos, porque 
es necesario hacer varias hipóte¬ 
sis, antes de encontrar una solu¬ 
ción aceptable. Además, las "cir¬ 
cunstancias" evolucionan: este 
año, se renuncia al arreglo de la 
cocina, previsto para el mes de 
junio (porque la nevera y la lava¬ 
dora están agonizando), y se de¬ 
cide aprovechar las rebajas coin¬ 
cidiendo con el "Salón de la 
Electrificación" (en marzo). 

¿Se pagará al contado, o en 6 
ó 12 letras? Según la hipótesis, 
hay que modificar todos los cál¬ 
culos. 

Nos damos cuenta de lo pesa¬ 
do que es adminsitrar, de la me¬ 
jor forma posible, un presupues¬ 
to que está siempre en el límite 
del equilibrio. 
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í 

Figura 2. 


Fue al percatarme de la 
dificultad de esta segunda fase, 
cuando decidí' gestionar la 
previsión presupuestaria en un 
ordenador personal, adaptando el 
método que, a mano, me dió 
buenos resultados. La máquina se 
encarga de la parte engorrosa del 
trabajo, las máquinas sirven para 
eso. 

El programa está basado en 
unas tablas, representadas en la 
figura 1. De estas tablas, puede 
direccionarse cada casilla, para 
realizar correcciones y pueden 
rescatarse en diskette. En una 


ejecución posterior del programa, 
puede cargarse la tabla desde el 
diskette, para modificar después 
valores y proceder a una nueva 
planificación de gastos. Si resulta 
aceptable, vuelve a rescatarse, pa¬ 
ra que sea base de partida para la 
simulación siguiente. Si no es 
aceptable la simulación, o bien se 
recurre al diskette para volver a 
situación inicial, o bien se ajustan 
las previsiones. Con una ligeri'si- 
ma modificación, es aceptable la 
utilización de cassette en el caso 
de que se disponga de instrucción 
de salvado y lectura desde esta, 
de tablas (Tipo STORE y RES¬ 
TORE). Esta idea, aunque muy 
limitada en este programa, es la 
que inspira el conocidísimo VI SI - 
CALC. Es un programa que per¬ 
mite gestionar tablas y cuadros 
con facilidad, una vez definidas 
las operaciones a realizar entre 
columnas y entre filas. Hecha la 
definición, pueden modificarse 
valores, que quedarán repercuti¬ 
dos en los lugares adecuados, al 
indicar que se recalcule la tabla. 

Debo de explicar con detalle 
las tablas C$ y T y su utilización. 
Hay diferentes maneras de resol¬ 
ver el problema. Normalmente se 
hubiesen utilizado más de dos ta¬ 
blas. He querido utilizar las me¬ 
nos posibles, por interés didácti¬ 
co. Siempre pueden no hacerme 
caso y utilizar 6 ó 7 tablas. ¿Y 
por qué 2 y no 1?. Pues porque 
la descripción de los conceptos, 
tratándose de un literal, se lleva 
mal con las cantidades. Sólo por 
eso. 

CS Tabla de conceptos. Tiene 
12 elementos, los 6 primeros, 
para conceptos positivos, IN¬ 
GRESOS y los 6 últimos para 



conceptos negativos:, GASTOS. 
Se han fijado estos números, co¬ 
mo podían haber sido otros. Si 
necesitan una dimensión mayor, 
sólo tienen que modificar la DIM 
y los bucles FOR. 

T Es una tabla de dos dimen¬ 
siones que contiene diferente in¬ 
formación, según el valor del pri¬ 
mer índice. El segundo varía en¬ 
tre 1 y 12. coincidiendo cpn los 

meses del año. 

El primero varía entre 1 y 16 
y su sentido es el siguiente: 

- T (1,M) aT (12,NI) contiene el 
valor del ingreso o del gasto 
para el mes M. 

- T {14,M) es la suma de ingre¬ 
sos para el mes M. Esta totali¬ 
zación se consigue en 430. 

- T (15,M) es la suma de gastos, 
para e! mes M. Esta totaliza¬ 
ción se consigue en 440. 

- T (16,M) es el saldo para el 
mes M. Ver 4200. 

- T (13,M) es el saldo del mes 
anterior al M, es decir del M-t. 


Operativa. 


Disponemos, ya se ha visto, de 
una tabla donde hacer 6 anota¬ 
ciones por mes, de ingresos y 6 
de gasto. 

Supongamos que es la primera 
vez que se ejecuta el programa. 
Por lo tanto, ios datos anteriores 
no existen. Contestamos "C" (de 
crear) a la primera pregunta. 

Se nos pregunta entonces por 
el número de! concepto a crear 
y su descripción. A continuación 
las cantidades mensuales, todas 
ellas sin signo. El signo va implí¬ 
cito en el número de concepto, 
y por ello no es necesario. Termi¬ 
nada la introducción de las canti¬ 
dades, para el año completo, 
vuelve a aparecer la pregunta de 
si se desea modificar —en este ca¬ 
so crear— nuevos conceptos. 
Cuando ya se han introducido to¬ 
dos los necesarios, se responde N 
y el programa entra en fase de 
cálculo. 

Como este cálculo dura unos 
cuántos segundos, y para solicitar 
que seamos pacientes, aparece un 
aviso "CALCULANDO". 
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1 0 

REM PREVISION DE CASTOS 


3 150 

Tí I ,M> = T 




1 i 

REM 


32 00 

GOTO 3110 
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4 000 

REM 




i 3 

REM 


400 1 

REM CALCULO 




L 4 

REM 04:02-62 


4002 

REM —----- 




j 5- 

n EM 


4 00 3 

REM 




*0 Di = CHR* í 4 > Es = CHRs '27> 


4 1 0 0 

FOR M - 1 TO 12 




9 í Oí = D5 + - O F E N VISl . D 2 “ 


4 110 

T í i 4 , M ) - 0 T ( 1 S , M ? 0 




92 CS = DS ■* "GLOSE VIS!" 


4 120 

FOR 1=1 TO 6 




*3 L 5 = D S + "R E AD VI SI - 


4 1 30 

Tí 14 r M> - Tí 14,H> + TíI,M) 




94 V* x DS + "VRITE VISl' 1 


4 140 

T(15 < M í = Tí 15 h M > +■ Til + í< 

M> 



95 DES & D S + "DELETE V l SI " 


4 150 

NEXT I 




10 0 

DIM C í í 1 £ ) j T t 1 6 < i 2 > 
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Tí 16,M> = TC13.M) + Tí 14,MI 

_ 

Tí 

1 5 t 

1 1 0 

HOME 


íi > 





i 2 0 

VTAE 4 PRINT "PREVISION ECONOMICA 


42 10 

IF M < 12 THEN TU3.M + 1 > 


Tí 

I 6 , 

ANUAL- VTAB 16 


M) 





o 

o 

r* 

INFUT "DESEA CREAR O MODIFICAR íC,M 


43 0 0 

NEXT M 




i 3 

” ; R * 


4 3 10 

RETURN 




2 1 0 

l f H¡ = "C 1 GOTO 30 0 


5 00 0 

REM 




l 20 

IF HS < > “M" COTO 2Q0 


5001 

REM IHPHÉSlON 




250 

GOSUB 1000 


50 0 2 

REM 




300 

GOSUB 2000 


5 003 

REM 




350 

HOME ■ INVERSE . VTAB 10- PRINT " 


50 90 

BW = 0 




CALCULANDO ”■ NORMAL 


5 10 0 

HOME W s 4 




400 

GOSUB 4000 


5 110 

PRINT TAB í 10) ;"S A L A N 

C 

£"■ 


500 

GOSUB 50 0 0 


5 1 20 

FRINT FRINT "* CONCEPTO 




600 

PRINT "SALVAR 2 MODIFI CAR 0 PIN 7 " 


í 2 

3 4 5 6 " 




6 1 0 

INPUT ,( ",RÍ 


5 2 5 0 

FOR J = I TO 12 




6 2Ú 

IF R! * "S‘ J GOTO 700 


5 2 5 5 

1 = J 




630 

IF RS = "M" GOTO 000 


52 60 

IF G i ( J 1" = "" GOTO 5 330 




6 40 

IF RS * "F" GOTO 900 


5 3 0 0 

N S = C i í J > 




6 50 

GOTO 410 


53 20 

GOSUB 7000 




700 

GOSUB 4000 


5 330 

NEXT J 




00 0 

GOSUB 2000 


53 35 

\J * U + 2 




B 1 0 

GOSUB 3000 


5340 

Ni = "SALDO ANT . " 




0 20 

GOTO 400 


5 3 45 

1 = 13 




9 0 0 

RDM 


5 3 50 

G05US 7000 




9 90 

END 


5 3 60 

Ni = "INGRESOS" 




99 1 

REM 


5365 

1 = 14 




992 

REM 


5 3 70 

GOSUB 7000 




993 

REM 


5300 

N6 * -GASTOS" 




100 0 

REM 


53 6 5 

r = i s 




100 1 

REM CARGA DE LA TABLA 


5390 

GOSUB 7000 




1002 

REM - ----- 


53 92 

PRINT "- --- 

__ 



10 03 

REM 



___ 




1 1 00 

PRINT OS FRINT Ls REM ABRIR Y LE 


5393 

C 

ii 

c 

+ 




ER 



5395 

1 = 16 




12 00 

POR I - 1 TO 12 


5 4 00 

Ní = -SALDO MES" 




12 10 

INPUT C S í I ) 


5 4 I Ó 

COSUB 7000 




1230 

NEXT 


54 20 ’ 

1 SU = su + 6 




12 50 

POR I = 1 TO 12 


5430 

IF 3W } 6 THEN RETURN 




1260 

FOR Mi 1 TO 12 


5 4 35 

FR 3NT 




1270 

INFUT 


54 40 

INPUT " L1STO ? " ■Ri 




12 90 

NEXT M NEIÍT I 


54 50 

GOTO 5100 




1300 

FRINT CS 


6 000 

REM 




2000 

REM 


600 1 

REM ESCRITURA DE LA TABLA 




200 1 

REM MODIFICACION DE VALORES 


6002 

REM ------— ~ 




2 002 

REM - -- ----- - 


6003 

REM 




2003 

REM 


6 I 00 

PRINT OS FRINT DES FRINT 

os 


FR I 

2500 

REM 


NT V4 

REM ABR I R , BORRAR , ABHIR Y ESCRIBIR 

25 90 

HOME 


6200 

FOR I = 1 TD 12 




2 6 0 0 

PRINT -INGRESOS i A 6 GASTOS ? A 


62 10 

FRINT CStI ) 




1 2 ,J 



622 0 

NEXT I 




2 4 02 

FRINT INFUT "DESEA MODIFICAR CON 


6300 

FOR 1 = 1 TO 12 




CEPTÜ5 ? Míí ■ PRINT 


63 10 

FOR M - 1 TO 12 




2 6 0 4 

IF RS ^ "N Jh TH EN RETURN 


6320 

FRINT Tí I ,MÍ 




2 6 10 

INFUT ’■# DE CONCEPTO - ; I 


6 330 

NEXT M ‘ NEXT I 




2 6 20 

IF I > 12 THEN RETURN 


6 4 0 0 

PRINT CS 




2622 

INPUT "CQNCETPO ) 


6410 

RETURN 




2625 

FRINT '-MES CANTIDAD- 


7000 

REM 




2 630 

FOR M = 1 TO I2 


700 1 

REM IMPRESION LINEA 




2635 

FRINT M; " "; 


7 003 

REM 




2640 

INFUT ht 11 ;TÍ I ,M > 


7000 

w * y + i 




266 0 

NEXT M 


70 90 

VTAB W 




2600 

COTO 2590 


? 100 

PRINT I;” " r NS 




3 0 0 0 

REM 


7 105 

HTAB í 7 VTAB V 




3001 

REM MODIFICACION SINGULAR 


7 110 

FOR M = 1 + SW TO 6 + SU 




3002 

REM ----- 


72 0 0 

K* - " " + 3TR s (Tí I , Í1> > 




3003 

REM 


7 2 10 

FR1 NT RIGHTS í KS # 4 i + 




3 100 

FRINT "CONCEPTO,MES,CANTIDAD " 


7250 

NEXT M 




3 110 

INPUT ¡,H,T 


7 2 40 

PRINT 




3 1 40 

IF I > 12 THEN RETURN 


72 70 

RETURN 





A continuación, la visualiza- 
ción de los datos y resultados co¬ 
rrespondientes al primer semes¬ 
tre. La limitación a seis meses, 
viene impuesta por ei formato de 
pantalla, que en nuestro caso es 
de 40 posiciones x 24 líneas. 

Con sólo pulsar RETURN, se 
obtiene el segundo semestre se¬ 
guido de la opción SALVAR, 
MODIFICAR o FIN. 

Por SALVAR, se entiende vol¬ 
car a discos C$ y T para uso futu¬ 
ro bajo el nombre VISl (en ho¬ 
nor de VISICALC) y en la uni¬ 
dad D2. Previamente se hace un 
borrado de VISl. El programa 
termina. 

Por FIIM, el programa termina 
y lo simulado se pierde. 

Por MODIFICAR, tenemos 
opción a modificar directamente 
cada casilla de T. Para ello hay 
que dar los datos: Número de 
concepto, mes, cantidad. Para sa¬ 
lir del bucle, introducir 13,0,0 
Return. 


Modificaciones. 

Como todos los problemas que 
aparezcan en el Ordenador Perso¬ 
nal, sólo se pretende presentar la 
idea, una idea que funciona, pero 
que puede ser mejorada y embe¬ 
llecida. Mejorada en cuanto a 
prestación. Por ejemplo: si entre 
400 y 500 se inserta pregunta so¬ 
bre forma de impresión,se puede 
obtener la misma, tanto en pan¬ 
talla como en impresora. En el 
papel no habrá la limitación de 
las 40 columnas. No hemos trata¬ 
do ei tema, porque una vez desa¬ 
rrollada la idea, el programa pue¬ 
de resultar el doble de largo, si se 
cuida la salida. El BASIC apple- 
soft tiene el defecto de carecer 
de PRINT USING y hay que ha¬ 
cer juegos malabares, para que las 
columnas de datos estén alinea¬ 
das. 

El organigrama se expone en la 
figura 2. 


Introducción: 
Christopher Disapean. 
Programa: Miguel Solano. 
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CBMPLJTEC 5/1 

ORDENADOR PROFESIONAL 


• 280A4 MHz 

* 64K RAM 

• 16K RDM 
* 2 DISDUETTES CADA UNO 

DE 35DK FORMATEADOS 
» TECLADO ERGGNOMICO 97 TECLAS 


* PANTALLA FOSFORO VERDE 
ORIENTABLE 12" ALTA RESOLUCION 

• SALIDAS: 2 SERIES Y 1 PARALELO 

• CP/M COMPATIBLE 

* OPCION DISCO DURO 15 MB 


COMELTA, S. A. 

CA Emilio Muñoz, 41 0/. Pedro IV, 84 - 


MADRID [17) Barcelona [5) 

Teléf. 754 30 01 Telef, 300 77 12 


5.* 


Telex: 42007 CETA-E Telex: 51934 CETA-E 


C. T. E., S. A. 

0/. Hernández Iglesias, 17 
MADRID (27) 

Telef. 267 52 36 
Telex: 467B1 


M.A.C., S. A. 

Avda. de la Industria, 52 
Alcobendas [MADRID] 
Tel. 653 36 23 


32 


El Ordenador Personal, núm , 28 








El juego de Neiscat 


No se extrañe si aún 
no conoce el juego de 
Neiscat: Acaba de ver 
la luz. 

Sin embargo, la 41 
CV ya lo conoce... 

A partir de ahora, va a descubrir 
en su HP 41 CV un adversario de 
talla (pueden ser necesarios hasta 
296 registros) y bastante hábil. 

El Neiscat se juega entre dos, so¬ 
bre un damero hexagonal (fíg. 1) 
constituido de casillas también hexago¬ 
nales: 19, 37 o 61 según escoja Vd. 
jugar en un damero de 3, 4 o 5 casillas 
de lado. Cada jugador dispone de un 
número ilimitado de fichas de doble 
cara. La cara superior lleva uno de los 
números 1, 2 o 3 r y la cara infe¬ 
rior es del color dei jugador (blanco o 
negro). 

Los dos jugadores, alternativamente, 
van colocando en cualquier casilla libre 
del damero, una ficha (con la cara 
numerada visible) con el fin de realizar 
alineaciones "1-2-3" según cualquiera 
de las seis direcciones posibles (fíg. 1)* 

Se puede "concluir" una línea, indis¬ 
tintamente, por una ficha núm. 1, 2 o 
3 (1 sí ya están colocados el 2 y el 3; 2 
si va rodeado de 1 y 3...). Una ficha 
colocada pertenece al juego y por lo 
tanto, puede ser util izada por cada uno 
de los dos jugadores para conse¬ 
guir una línea. 


Sin embargo, (¡Tenía que haber 
alguna excepción!), la ficha de conclu¬ 
sión de una serie, trátese de un 1, un 2 
o un 3, tiene que ser colocada ensenan¬ 
do el color del jugador y quedar así 
neutralizada: ya no puede intervenir 
en la realización de otra línea. La 
puntuación del jugador es igual al 
valor del número que lleve la fi¬ 
cha de conclusión de la serie, Y 
aunque se concluyan varias series 
a la vez, sólo se contabiliza una. 


No haga el juego del adversario 

Puede parecer fácil realizar estas 
líneas, pero nada de eso. Puesto 
que, i El numero de la ficha a co¬ 
locar le es impuesto!. 

En efecto, los dos adversarios de¬ 
ben jugar en el orden de las fichas 
numeradas 1, 2, 3, 1,2, 3.. Es decir 
que los jugadores A y B colocarán 
sucesivamente: 


Jugador A 

1 3 2 ... 

Jugador B 

2 1 3 ... 


y la dificultad reside en que una 
ficha colocada puede hacer inme¬ 
diatamente eí juego del adversa* 
rio. 

Otro detalle que conviene cono¬ 
cer: Al principio del juego, la ca¬ 
silla central está ocupada por una 
ficha de valor 3 que podrá servir 
de base para la constitución de series 
ganadoras. Por lo tanto, al principio de 
la partida siempre habrá un número de 


casillas libres múltiplo de 6, lo cual 
equilibra de manera óptima las posi¬ 
bilidades de los dos jugadores. Termina 
la partida cuando ya no queda ninguna 
casilla libre o cuando resulta evidente 
que ya no se puede realizar ninguna lí¬ 
nea. 

Una vez introducido el programa 
en la HP 41, hay que completar¬ 
lo por la rutina ALEA o cualquier otra 
que genere un número seudoaleatorio. 
Este es lanzado por XEQ "NSCAT" y 
es pedida Ea dimensión del damero de 
juego: de 1 a 5 casillas por lado. Los 



Fig. i 

Dimensión 4. pian dei juego con dos ejem¬ 
plos de seríes terminados. 
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PRP -fí3C3T' 


0¡*LBL -HSCftT- 
-V5C- CLRG CF K 4 
■SIN? <(* PRGNPT 
STO 14 STO 85 OÍS 
11.81! * STO 06 
30.82? RCL 14 + LflSTX 
1 E3 / t STO 87 


22*LBL 08 
RCL 88 ST+ 87 í 

£é*LBL el 

STO ¡HE 07 ISG 07 

GTG 8! ISt 88 RTF 

ESE eE GTO 88 .??? 

ST+ 08 RCL 14 1 * 

STO 05 

48*LEL 11 
RCL 88 ST+ 07 1 


44*LBL 12 
STO INI 87 ISO 87 

GTO 12 ISG 88 ESE 05 

GTO 11 10 STO 0? CHS 
STO 12 1 STO 10 
STO 0S CHS STO !! 1! 
STO 00 ST- 13 RCL 14 

* 30 + 15 sto :nb v 
SF 81 CF 82 CF 03 
CF 29 SF 07 0.017 
STO 28 CLX *PREF- 

TONE 5 

7?*LBL 15 

FIX 6 CF 05 CF 88 
CF 22 PRDHFT FS? 22 
OTO 02 FS? 07 GTO 18 

CLX STO 28 STO 21 
CF IHE 08 RCL 08 3 
ESE Y REH STO 08 
SF IHE 00 RCL 18 
XO 17 STO 16 GTC 18 


163*LBL 02 

X=8? GTO 28 38 * 

STO 81 RCL 1NE 0! 

RCL 10 *ERR: ’ X*Y' 

GTO 15 2 RCL 86 YtX 
RHE RCL 18 - ST* X 
ST* IHE 01 

122*LBL 18 
sf ee Cf 05 CF 86 
CF 0? CF 80 RCL 2g 
STO 87 

138*LBL 04 

RCL 88 30 + XE8 IHE X 
FS?C 05 GTG 27 ISG 07 
GTO 84 4 FS? 02 3 
FS? «3 5 STO Bí 
RCL 20 X=r> GTO 13 
RCL IHE 20 RCL 18 X=Y' 
GTO 08 RCL 21 X-r 
GTO 13 RCL IHE 21 
RCL 10 X*Y? GTO 13 


159*LBL 86 

RCL Z STO IHE 86 Z 
ST* 88 SF IHE 88 


!65*LBL 13 
CLX STO 28 STO 21 
FC? 83 GTO 37 STC 83 

24.821 STO 06 

174*LSL 35 

CLX STO 15 RCL IHE 06 
GTO 38 STO 01 
RCL 23 STO 07 

163*LBL 29 

XEQ 18 2 X*Y? GTO 05 

Ra 01 RCL IHE 07 * 

X<> 81 STO 25 RCL 28 

X<> 07 STC 26 

196«LBL 30 

XE8 17 6 X*Y? GTC 06 

RCL IHE 87 RCL IHE 26 
CHS GTO 88 

RCL 01 STO 83 

Ra IHE 26 ST* X ♦ 

XO 20 STO 21 GTO 10 


2!4«LBL 86 

ISG 87 GTG 36 RCL 26 

STO 67 RCL 25 XO 01 

STO 15 RCL IHE 07 

ST* X + STO 20 

226*LBL 05 

ISG 07 GTO 29 RCL 15 

X=0? STO IHE 86 X*0? 
STO 83 

234*Lfll 36 
ESE 86 GTO 35 

237*LBL 10 

RCL 03 X*B? SF 06 


241*LBL 3? 

FS’C 00 RCL 85 FS?C 0? 
RCL 84 FS?C @6 RCL 03 
X=0’ GTO 26 STO 01 
CF 00 XEQ 25 RCL 81 
GTO 23 

255* LBL 31 

XE# 17 STO 02 -S X*?’ 
SF 85 REH 6 X*r 
GTO 85 RCL 81 
RCL IHE 87 ST* X * 

STO 83 SF 86 

271*LBL 85 

RCL 82 -14 X*Y? RTK 
RCL 81 RCL IHE 87 * 
STO 85 SF 88 RTN 


282*L0L 32 

XE8 18 STO 02 38 X-Y? 
SF «5 RCL 82 2 X*Y? 
GTO 82 RCL 01 RCL 22 
X=Y? GTO 82 XO 23 
STO 24 REK STC 22 


308*LBL 02 

RCL B2 4 X*Y? RTH 
RCL 01 RCL IHE 87 * 
RCL IHE X RCL 10 X=Y? 
GTO 09 RCL 81 
RCL IHE 87 - STC Z 


316*LBL 0? 

Ra Z STC 04 SF 07 
RTH 

321*LSL 33 

XEQ 17 STO 02 4 X=Y7 
SF 85 RCL 02 -2 X*Y? 
RTH RCL 81 Ra IHT 07 
+ STO 84 SF 07 RTH 
337*LBL 26 
CF 80 XEQ 25 

340*LBL 16 

RCL 14 RCL 08 * 19 + 
FS?C 87 GTO 23 CLX 
STO 03 STO 04 STB 18 
STO 19 STO 28 STO 21 
STO 25 STO 26 41 
STO 61 RCL 14 .022 * 
41.019 + STO 86 


365*LBL 20 

RCL IHE 81 RCL 18 X*Y7 
GTO 21 RCL 81 38 - 
CLfl flRCL X ’H?' flVIESi 
CL>: STO 82 RCL 20 
STO 87 

361*L6L 17 

Ra 01 RCL IHE 87 * 

ST* L RCL IHE X X=r 
GTO 67 RCL IHE L ■ 


39I+LBL 87 
FS? 80 RTH 53 + 

XEQ IND X ST* 82 
ISG 07 GTO 17 FE' 83 
GTO 22 8.01 STO 0? 


484*L£L 18 

RCL 81 RCL IHE 07 ♦ 
Ra 8! LRSTX - 
RCL IHE Y RCL IHE Y + 
FS? 00 RTK 69 + 

XEQ ¡HE X ST* 02 
ISG 07 GTO 18 GTC 22 


423*LBL 53 
CLX RTH 

42é*LBL 54 

427*UL 69 

428«10L 56 

429*LBL 68 

438*LBL 70 

431‘LfiL 72 

432*UL 84 

433*LBL 55 

434*LBL 49 

435*LBL 41 

43é*LÍL 67 

437 *UL 65 


438*101 6! 

439*LBL 75 

448*L6L 9! 

441*LBL 99 
ax RTH 

444*LBL 71 

CLX FC? 02 RTN RCL 0; 
STO 25 aX RTN 

452*LBL 60 

-2 FS? 03 CLX RTN 
457*LBL 47 

458*LBL 77 

459*LBL 7? 

460*L8L 83 

CLX FS? 02 -2 RTK 


465*LSl 51 

CLX FC^ 83 RTH RCL 01 
RCL IHE 87 + RCL 18 
X*Y? STO 19 SDK 
STO 18 RCL 09 RTH 


479*LBL 3? 

CLX FS? 01 -5 RTK 


484*LBL 59 

-6 FS? 83 -2 FC 81 
RTH RCL INI 07 ST+ X 
RCL 01 + RCL 18 X*Y? 
STO 19 REH STO 18 
RCL 89 RTN 

581*LBL 57 

RCL 09 ST* X FS? Í1 
RCL 12 FS? 82 38 RTH 


509*L0L 45 

2 FS? 82 -6 FS? 03 
RCL 10 RTN 

516*101 73 

CLX FS? 02 -15 PTN 


521H0L 85 
CLX FC? 82 RTK 
RCL IHE 87 RCL 01 + 
RCL IHE X RCL 18 - 
X=0? GTO 83 RCL 81 
RCL ¡HE 87 * Rt 


537*L0L 03 
REH RCL 18 X*Y? 

STO 1? REH STO 18 2 
RTH 

546*LBL 87 
20 FS? 01 15 RTN 


551*LBL 76 

CLX FS? 02 -2 R T S 


556+LBL 

22 


RCL 01 

PCI @4 

RCL 03 

X=0? GTO 14 REH 

RCL 02 

X<Y? GTO 21 

STO 04 

X*Y? GTO 14 

REN XEQ ‘OLEA' 

.3 - 

X>8? GTO 21 


575*10L 

. 14 


RCL Z 

RCL 25 

x*r clx 

STO 26 

?M STO 03 

Ra 18 

STO 20 

RCL 19 

STO 21 



587*101 

. 21 


RCL 18 

ST+ 81 

CLX 

STC 18 

STO 19 

ISG 06 

GTO 28 

RCL 26 

x=r 

GTO 82 

XO 22 

XO 23 

STO 24 



681*LBL 82 


RCL 83 



603*LSL 

. 23 


X=0? GTO 28 STO 01 

SF 00 

RCL 20 

STO 07 

éie+LBL 38 


FS? 02 

XEQ 18 

FC? 02 

XEÜ 17 

FS? 01 

-S 

FS? 02 

18 FS? 83 4 

X=Y? GTO 24 ISG 07 

GTO 3E 

CF 88 

2 RCL 06 

YTX RHE RCL 10 - 

ST* X 

ST+ IHÍ 

81 CLfl 

ARCL 0! 

\ r b: m 

XEQ 25 

Ra 0 i 

30 - 

flRCL X 

TOHE 5 

GTO 15 


644*UL 24 


CF 00 

rcl ee 

ST+ 17 

cf im 

m ax 

STC 20 

STO 21 

STO INE 01 CLfl 

ARCL 8( 

i "F: - 

XEC 25 

RCL 0Í 

30 - 

flRCL X 

XEO 

TOHE 9 

TDWE S 

GTO 15 



665*LBL 25 


cf m 

08 RCL 

08 

m. is 

+ 4 ME X*8? 

RCL 10 

STO 06 


sf m 

00 RTN 


677*LBL 2? 


CF #6 

CF 07 CF m 

FC? 22 

CIO 20 

RCL 86 

ST+ 16 

CLX STO IND 81 

m " 0 K P XEO 

D TOHE 0 

PSE P5E CL» 

GTC 26 


695*LBL 28 

CF INI 80 -FIH- XEQ E 
TONE 5 STOP 
GTO -NSCflT* 

702*101 E 

■h S=‘ flRCL 16 -F-- 
flRCL 17 9V1EH EHE 


PRP ’flLEfl' 


01*L0L -flLEfl- 
RCL 29 PI * 5 Yflí 
FRC STO 29 ENE 
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El juego de Neiscat 


Líneas del programa 


1 a 78 Iniciación 
79 a 335 Análisis del golpe con¬ 
trarío 

336 a 601 Análisis del juego 
602 a 707 Juego de una casilla 



valores 1 y 2 son triviales; el 3 permite 
"entrenarse”; y las dimensiones 4 y 5 
son las más interesantes. A falta de 
esta introdudón, el programa escoge la 
dimensión 4. 

Una vez establecido su plan de juego, 
el programa se detiene en e] mensaje 
npREp ¡a sus fichas! Si debe 
empezar la HP, pulsar R/S. SI no r entre 
Vd. las coordenadas de la casilla que 
decide jugar antes de pulsar R/S. Re¬ 
cuerde que coloca una ficha de un 
determinado valor: a lo largo de toda 
la partida, la HP indicará dicho núme¬ 
ro por medio de los indicadores 
binarlos 1,2 y 3 (banderas) . 

Vd. no puede "hacer trampas”, 
pues el mensaje "ERR" indicaría 
que juega una casilla ya ocupada. 
En cambio, puede hacer que la HP 
juegue en su lugar o que sencillamente 
juegue contra sí misma pulsando R/S 
sin introducir coordenadas de casilla. 

¿Cómo determinar las coordenadas de 
una casilla? Explicamos el método en 


la figura 2: Aquí la casilla central es la 
44, la 33 se encuentra Inmediatamente 
encima». 

Una vez memorizado su golpe, la 
HP analizará sus consecuencias (bande¬ 
ra 0), visualizará eventualmente un 
resultado (puntuación) y, por último, 
se pondrá a estudiar su respuesta. En 
algunos casos, ésta será inmediata, 
pero, en general, examinará todo el 
plan de juego, casilla por casilla. Para 
que lo lleve Vd. con paciencia, le 
indica las coordenadas de las casillas 
examinadas: "XY?". 


El tiempo de respuesta global es, 
en et caso más desfavorable, de 3 
minutos en dimensión 3, 6 minu¬ 
tos en 5 y 10 minutos en 5, Pero, 
se lo repetimos, por término me¬ 
dio, los golpes son más rápidos. 

El juego de la máquina es indica¬ 
do por un bip y visualizado: ”n° 
de ficha: n° de casilla”. Por ejemplo, 
”2:35" significa que la HP coloca una 
ficha n° 2 en 9a casilla 35. Al mismo 
tiempo presenta el indicador de 
número de la ficha (flag) que debe 



Fig . 2 

Las dos direcciones oblicuas descendientes, 
definen íes coordenadas de cada casilla. 


El programa 

Por ío que se refiere al programa, 
ocupa 174 registros y hay que aña¬ 
dirle una rutina que genere un nú* 
mero seudoaleatorio ("ALEA") 
comprendido entre 0 y 1. Son nece¬ 
sarios numerosos registros de me¬ 
moria: 97 en dimensión 3, 119 en 4 
y 141 en 5; pero la mayoría de ellos 
permanecen . .. inutilizados (éste es 
el caso de 52 registros en dimensión 
4), Cerca del 60 °/o de desecho 
como promedio, ¿No resulta horro¬ 
roso? La desventaja de una gestión 
más puntillosa de las memorias se¬ 
ría un despilfarro del tiempo de 
análisis. Si le apetece,,. 

La codificación de las casillas está 
hecha de la siguiente forma: 0 (fue¬ 
ra de juego, 1 (casilla líbre), 3 (n° 1), 
7 (n° 2) y 15 (n° 3) r según la fór¬ 
mula 2 ^(n° de ficha + 1) — 1. 
La casilla número XY corresponde 
al registro n° 30 + XY. Por últi¬ 
mo, señalemos que el corazón del 
programa, ahí donde se elabora la 
estrategia, se encuentra en las líneas 
422 a 554, 


ahora colocar Vd. Para jugar, entre sus 
coordenadas seguidas de R/S. 


Toda partida debe terminarse 


Una serie concluida es anunciada por 
una musiquilla y el mensaje "3 = si — 
s2" donde si es su puntuación y s2 la 
de La HP, Si hizo jugar ia HP en su lu¬ 
gar, las puntuaciones resultan inverti¬ 
das. La conclusión de una de sus series 
es anunciada por un mensaje semejante 
pero precedido de "OK", 

Al final de una partida, la HP detecta 
por sí misma que no queda ninguna ca¬ 
silla libre, pero, en cambio, cuando ya 
no se puede realizar ninguna serie, hay 
que Indicárselo. Para ello, tiene Vd. 
que Introducir O en vez de las coorde¬ 
nadas de una casilla: el mensaje "FIN 
S = ... ] ..." da el tanteo de final de 
partida. 

Robert Pulluard 


El Ordenador Persona f r núm r 28 


35 






GRAFICOS EN 
EL OSBORNE 



Aunque el Osborne 1 no dispone de verdaderas 
capacidades gráficas, es posible aprovechar el blo¬ 
que de caracteres gráficos predefinido para dibujar 
algunas cosas interesantes. Vemos cómo puede 
hacerse a través del siguiente texto y de algunos 
ejemplos. 


La resolución alfanumérica de 
la pantalla del Osborne 1 es de 32 
líneas de 1 28 posiciones cada una, 
lo que supone que, en total, dispo¬ 
nemos de 4.096 posiciones, de las 


cuales sólo son visibles al mismo 
tiempo 1.248 (ventana de 24 por 
52). Con fines gráficos una serie 
de caracteres especiales pueden 
ser visualizados en cada una de las 


4 096 posiciones por medio de las 
sentencias PGKE y PRINT CHR$. 

La setencia POKE es una de las 
más peligrosas que pueden usarse 
en un programa Basic, pues nos 
permite situar valores en posicio¬ 
nes determinadas de la memoria 
de nuestro microordenador, con 
todos los problemas que puede 
acarrear el introducir algo en una 
posición errónea. £1 formato de la 
sentencia POKE es: 

POKE dirección, valor 
en la que ''dirección" tiene que 
estar comprendida entre 0 y 


íeo f 

lio ' PROBRAMA -2- 

120 * 

130 PRINT CHR*(2Ó>: PRINT TAEÍ60) 

,140 K * 127 
150 0=0 
160 R = 63002! 

170 POKE P.K 
180 POR N = 1 TG 25 
190 IF D = 4 THEN D = 0 

200 D = D + í 

210 IF D = 1 THEN I = 128 

220 IF D - 2 THEN I = 1 

230 IF D = 3 THEN I = "120 

240 IF D = 4 THEN I = "i 

250 FOR 5 “ 1 TO N 

‘ 260 P = P + I 

270 POKE F t K 

280 IF I = 123 OR I = -128 THEN GOTO 310 

290 P - P + I 

300 POKE P,K 

310 NEXT S 

1320 NEXT N 

330 IF K = 32 GOTO 140 
340 K = 32 
350 GOTO 150 

I_ _____i 


100 

y 


1 10 

PROGRAMA ■ 

-1- 

120 

y 


130 

PRINT CHRÍÍ26): 

PRINT TABÍ60) 

140 

P = 61440! 


I5d 

A = 0 


160 

B = 31 


170 

K = 0 


180 

FOR I = A TO B 


190 

IF K >< 45 

THEN GOTO 226 

200 

K — 0 


210 

P = P + 256 


220 

POKE P + K, 

I 

230 

K = K + 5 


240 

NEXT i 


250 

IF A - 127 THEN 

GOTO 250 

260 

A = 127 


270 

B - 160 


280 

P - 63360! 


290 

GOTO 170 
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PROGRAMA -3 

- 







120 

í 











130 

PRINT CHR$(2Ó) 








140 

P = 

62976! 









150 

IF 

P > 61440 

! AND 

p 


655 

35! 

THEN POKE P,127 

160 

c* 

= INKEY* 









170 

IF 

C* = 

11 1 II 

THEN 

P 

- 

P 

+ 

127: 

GOTO 

150 

180 

IF 

C$ = 

II 2 11 

THEN 

P 

— 

P 

+ 

128: 

GOTO 

150 

190 

IF 

C* s 

l, 3 H 

THEN 

P 

- 

P 


129: 

GOTO 

ISO 

200 

IF 

c$ = 

M ^ ir 

THEN 

P 

= 

P 

- 

1: 

GOTO 

ISO 

210 

IF 

c* = 

11 6" 

THEN 

P 


P 

+ 

1: 

GOTO 

150 

220 

IF 

c* = 

■ i y i» 

THEN 

P 

— 

P 

- 

129: 

GOTO 

150 

230 

IF 

C* = 

"8 11 

THEN 

P 

- 

P 

- 

128: 

GOTO 

150 

240 

IF 

c* = 

ii if 

THEN 

P 

= 

P 

- 

127: 

GOTO 

150 

250 

BOTO 160 











65,535, y "valor" es un octeto 
entre 0 y 255. Así, fa sentencia 
POKE 64000,65 colocaría en la 
posición de memoria 64000 el có¬ 
digo ASCII 65 que corresponde a 
la letra "A". 

La memoria video del Osborne 
1 comienza en la posición 61440 
y termina en la 65535, correspon¬ 
diendo la primera de ellas a la 
esquina superior izquierda de la 
pantalla, y la segunda a la inferior 
derecha. Los caracteres gráficos 
disponibles pueden obtenerse en 


la pantalla con la ejecución del 
programa 1. 

Con anterioridad indicamos que 
los dos medios de obtener carac¬ 
teres gráficos eran las sentencias 
POKE y PR1NT CHR$. No obstante 
esta última no puede ser emplea¬ 
da ya que no permite direccíonar 
una posición cualquiera de la pan¬ 
talla, por lo que no queda más 
remedio, en principio, que usar la 
"peligrosa" POKE. 

Como una imagen vale más 
que mil palabras les animo a que 



prueben los programas números 
2 y 3, El 2 dibuja indefinidamente 
una espiral en la parte visible de 
fa pantalla, y, el 3, le permite realL 
zar el gráfico que usted desee em¬ 
pleando el bloque de teclas numé¬ 
ricas situado a la derecha de su 
teclado como cursores de direc¬ 
ción. 

Tenga también en cuenta que 
con objeto de no estropear las imá¬ 
genes que aparecen en la panta¬ 
lla, ninguno de ios tres programas 
termina normalmente, por lo que 
deberá teclear CONTROL C si quie¬ 
re detenerlos. 

en realidad la realización de 
gráficos en el Osborne 1 no es 
demasiado compleja y sus posibi¬ 
lidades son bastante interesantes. 
Con un poquito de imaginación, y 
de paciencia, pueden crearse bue¬ 
nos gráficos de barras y, por qué 
no, divertidos juegos. 

Luis de Cáceres Muñoz 
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MAyO£ 


BOLETIN DE PEDIDO a mandar a MAYBE - Gal. Martínez Campos,5 - Bajo izqda. Madrid -10 
Les ruego me manden : 

. fundas (1) para Apple U con monitor de 9" ..... aL200Pts ? . . 

, ♦ , , , fundas para Apple ff con monitor NEC de 12 J *..* * * ...**,* , , , , . al.250Pt$ '. 

. fundas para Apple ft con monitor Philips de J2 ". .^ aL250Pis 

fundas para Apple til sin pro file .. , , ... . ..... a1,250Pts 

. fundas para impresora de 80 co/umñas .*.....♦■** a 700 Pts 

. fundas para impresora de 132 columnas .. *.*. . a 750Pts : . t , r 1 

pagando con □ talón adjunto o O contra reembolso el Total de (añadir gastos de envío: 250 pts. por 2 fundas 
y 175 pts. por I funda) ...... 

Nombre :.-.Apellidos... 

Empresa :..Cargo * , . .. 

Calle :.,......No:-.Tel:.. 

Xiudad :......DP:-Provincia:...... 

V Fecha:. Firma: j? 

(1) Apple con dos drlves. ___ _ / 






























Informática de bolsillo 


Cambie de base cuando lo necesite. 

Con este programa para calculadora HP. 



Aunque es verdad 
que se pueden hacer 
"a prior i" más cosas 
utilizando 
"disquettes" en vez 
de "cassettes", no es 
menos cierto que 
con frecuencia la 
creatividad hace 
aumentar el campo 
de utilización de los 
ordenadores. Este es 
un programa cuyas 
aplicaciones rebasan 
el campo neto de 
posibilidades de 
las máquinas que 
nosotros utilizamos, 
ya sean calculadoras 
de bolsillo u 
ordenadores 
personales. 
El objeto de este 
programa es en 
apariencia una 
operación muy 
conocida por todos: 
el cambio de base y 
la calculadora 
utilizada es una HP 
25 C (o cualquier 
HP que tenga como 
mínimo 49 pasos). 


No hay propietario de calcula¬ 
dora programable que no haya 
"metido en su máquina", alguna 
vez, un programa de cambio de 
base A a base B. 

Los programas que se suminis¬ 
tran con las calculadoras progra¬ 
madles, en este caso la HP 25 C, 
se limitan generalmente a trans¬ 
formar un número de base A en 
base 10 y reciprocamente de ba¬ 
se 10 en base B. 

Primera ventaja de este progra¬ 
ma: que convierte directamente 
un número fuente en base A a 
base B, cualquiera que sean las 
bases, superiores o iguales a 2 
(se puede considerar que no hay 
I imite superior, ya que se trabaja, 
en general, bastante poco en ba¬ 
ses mayores que 10 10 ). Esto evita 
hacer una primera conversión y 
tener que introducir un segundo 
programa después para acabar el 
trabajo. 

La segunda ventaja muy fun¬ 
damental (iy qué importante 
es!) reside en el hecho de que en 
el caso de transformaciones de 
números expresados en bases 
grandes a números expresados en 

bases pequeñas, la máquina no 
puede, en todos los casos, pro¬ 
porcionar todas las cifras. Gene¬ 
ralmente da un resultado en for¬ 
ma de número decimal acompa¬ 
ñado de una potencia de 10 y el 
ufilizador se encuentra en la más 


desesperante imposibilidad de co¬ 
nocer las últimas cifras de su re¬ 
sultado. 

Veamos dos ejemplos, donde 
se recogen los resultados corres¬ 
pondientes de un programa nor¬ 
mal que da una respuesta global 
y el obtenido con el programa 
adjunto. 

1. — ¿Qué número es el equiva¬ 
lente en base 4 al número X = 
92 91 90 89 (base 93)?. 

a) Un programa normal da el re¬ 
sultado X=1,0131110.10 13 (base 
4). Un resultado muy pobre. 

b) Con el programa cuyo listado 
aparece en este artículo 

X=101311 10311022(base 4) 

Se obtienen, como se ve, las 
6 cifras en cursiva que faltaban 
en la primera respuesta. 

2. — ¿Cuál es el equivalente en 
base 2 del número Y= 18 18 18 
(base 19)?. 

a) Resultado normal: 

Y= 1,1010110.10 12 (base 2) 
se ve que faltan cinco cifras. 

b) Resultado "cifra a cifra": 

Y=1101011007070 (base 2) 

El programa tiene sus limita- 
cines de utlizacíón, pero presenta 
la ventaja de llevar mucho más le¬ 
jos los límites normales. 

Veamos ahora cómo la máqui¬ 
na puede proporcionar resultados 
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Listado del programa 


01 

STO 1 

25 

RCL 5 

02 

X¿Y 

26 

GXyto 

03 

STOO 

27 

GTO 13 

04 

R/S 

28 

RCL 3 

05 

STO 5 

29 

STO 5 

06 

1 

30 

RCL 1 

07 

STO 2 

31 

FX < Y 

08 

CLX 

32 

GTO 35 

09 

STO 3 

33 

F X=A Y 

10 

R/S 

34 

GTO 48 

11 

G 10 x 

35 

l 

12 

STO 4 

36 

F INT 

13 

RCL 4 

37 

STO 2 

14 

STO t 5 

38 

RCL 1 

15 

RCL 5 

39 

* 

16 

G FRAC 

40 

CHS 

17 

STO-5 

41 

RCL 5 

18 

RCL 4 

42 

+ 

19 

X 

43 

G X < 0 

20 

RCL 2 

44 

CLX 

21 

X 

45 

F PAUSE 

22 

STO + 3 

46 

RCL 2 

23 

RCL 0 

47 

GTO 29 

24 

STO * 2 

48 

RCL 5 



49 

GTO 00 


de 14 y 13 cifras en los dos ejem¬ 
plos precedentes y muchos más 
en casos mucho más impresio¬ 
nantes, aunque su pantalla está li¬ 
mitada a 10 cifras. Para realizar 
esto, va a dar el resultado "'cifra a 
cifra" y empezando por la dere¬ 
cha. 

Ejemplo: en el caso 1 ,b) la má¬ 
quina va a visualizar sucesivamen¬ 
te 2,2,0,1,1,3,0,1,1,1,3,1,0 y 1. 
Pero, atención, la máquina no es 
idiota, ella da siempre sus "ci¬ 
fras" separadamente. Sin embar¬ 
go, el número de estas cifras saca¬ 
das simultáneamente en pantalla 
depende de la base final. La con¬ 
dición "n cifras por n cifras" se 
puede escribir 

10 n1 <B<10 n 

En efecto, hagamos la conver¬ 
sión siguiente: 

Z= 66 65 64 63 (base 67} 

= ??????... (base 15) 

El resultado de la máquina va 
a ser: 

Z= 1 11 07 14 04 14 09 
(base 15) 

pero lo habrá dado de la siguien¬ 
te forma: 

9,14,4,14,7,11 y 1 


No hay que olvidar ios "ceros" 
que faltan, pues si la máquina vi¬ 
sualiza 7, hay que interpretarlo 
como 07. En realidad, todo lo 
que hay que saber es que en base 
15,14 no es un número sino una 
cifra que corresponde a la letra 
griega "epsilon". 

La máquina da automática¬ 
mente el formato del resultado, 
pero no sucede desgraciadamente 
lo mismo con el número introdu¬ 
cido. En efecto, debido a la falta 
de capacidad de memoria, es pre¬ 
ciso dar como información a la 
máquina, además de los datos de 
base de partida y llegada y el nú¬ 
mero fuente, el numero de "ci¬ 
fras" (en salida) que corresponde 
a cada cifra, del número inicial. 
La condición relativa a n es la 
misma que antes, sin más que 
reemplazar B por A. No hay que 
olvidar que con una base de par¬ 
tida superior a 10, es preciso re¬ 
servar por lo menos 2 "cifras" 
(en salida) por cada una. 

O sea, si se quiere convertir 
113.25.3 (base 157) en base N 
hay que dar a la máquina un nú¬ 
mero escrito asi: 

113025003 

Se observa, además, a la vista 
del programa, que no utiliza n¡ 


subprograma, ni decremento con 
bifurcación, ni direccionamiento 
indirecto y que puede funcionar 
con cualquier HP con 49 pasos ó 
más de programa o con cualquier 
"Texas" que tenga 100 pasos, 
aproximadamente. Es, por lo tan¬ 
to, utiiizable por una amplia ga¬ 
ma de máquinas (sin contar con 
los ordenadores BASIC). 

Para acabar, veamos el "modus 
operandi" del programa: 

Se inicia!iza: 0 decimal, iniciali- 

zación (F prgm o RST). 

Se introduce: A (base de parti¬ 
da), después B (base de llega¬ 
da), o sea A Enter B. 

Se teclea N (el dato a tratar), 
sin olvidar "ios ceros" no signifi¬ 
cativos y se pone en marcha, o 
sea: N (Base A) R/S. 

La máquina se detiene de nue¬ 
vo mostrando 0 (cero). 

Se escribe ahora el número de 
"cifras" necesarias (en la salida) 
por cada cifra el número N que 
se acaba de introducir (con obje¬ 
to de que la máquina pueda tra¬ 
bajar "cifra" a "cifra"). 

Se vuelve a poner en marcha 
por última vez con la operación: 

Número de "cifras" R/S 

Una vez iniciado el proceso, 
no hay más que ir a toda veloci¬ 
dad a buscar lápiz y papel y se 
puede ya anotar lo visualizado 
en pantalla, a partir de la dere¬ 
cha. Pero una vez más ¡atención 
a los "ceros"!. 

Puede suceder que algunos lec¬ 
tores interesados, divertidos ana¬ 
lizando el programa, no vean la 
utilidad de los pasos 43 y 44. En 
efecto ¿por qué plantear un pro¬ 
blema en el caso de que se intro¬ 
duzca una "cifra" negativa?. Des¬ 
de luego, esto ocurre rarísima- 
mente. Los curiosos pueden 
reemplazar al paso 44 por una 
instrucción inoperante (g NOP), 
después de hacer la conversión de 
base 99 en base 2 del número 98 
98 98 98 98 y que intenten com¬ 
prender porqué los - 1 son real¬ 
mente ceros (¡mucha suerte!). 

Una vez más se ve que las posi¬ 
bilidades de las máquinas no es¬ 
tán en proporción directa con la 
inversión que representan. □ 

Olivier Barthélémy. 
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Juego de las siete y media para la 

CASIO FX-702-P 


Partiré de la suposición de que todos (o la ma¬ 
yoría) sabéis jugar a las siete y media. El que no 
sepa o no recuerde bien las reglas, podrá aprender, 
o refrescarlas, mientras sigue el funcionamiento del 
programa o lo ejecuta en su máquina. 

El programa en cuestión ocupa 950 
pasos, (aunque cuando lo creé, recién 
conseguida la calculadora, ocupaba 
1350} más 30 pasos resultantes de defi* 
nir diez memorias extra para la matriz 
columna que actuará como baraja (que 
es española, de 40 cartas). 


Este puede considerarse formado 
por seis bloques, prácticamente inde¬ 
pendientes, entre los cuales va saltando 
el control del programa. Cada bloque 
cumple una misión específica y, aun¬ 
que pueda parecer que tiende a hacer 
más lento el programa, en realidad ocu¬ 
rre al revés. 

Los bloques en cuestión son los siguien¬ 
tes: 

BLOQUE I o Este tiene como misión el 
comprobar el estado de la baraja (contar 
las cartas que van quedando) y La reposi¬ 
ción de la misma, cuando se llega al mí¬ 
nimo de cartas permitido. Está com¬ 
puesto por las líneas 15 (que realiza el 
primer punto) y 16 ( que se encarga 
de barajar). 

Esta parte se ejecuta al principio del 
programa (para crear !a baraja) y des¬ 
pués de cada mano (comprobación y, 
en caso necesario, reposición). 


BLOQUE 2 o Es el encargado de gene¬ 
rar la carta que nos sale cuando pedi¬ 
mos. Está compuesto por las líneas 2 a 7 
inclusives. Además de generar carta, ad- 


DIAGRAMA DE BLOQUES 



CASO DE PASARSE 
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BLOQUE I o 



judica a esta un valor (a cada una el $u~ 
yo menos las figuras que valen medio 
punto). En la baraja que usa la CASIO, 
¡a sota, el caballo y el rey están sustitui¬ 
das por sus equivalentes de la baraja 
francesa, esto es, la "J" (Jack), la J 'Q" 
(Gueen), y la "K M (King), respectiva¬ 
mente. 

La 2 a línea se encarga de lo que 
propiamente es sacar la carta. La línea 
3 comprueba que dicha carta está en la 
baraja. La 4 quita el naipe del juego y, 
en caso de no ser figura, dárselo al juga¬ 
dor, Las líneas restantes sirven para 
identificar las figuras, 

BLGQUE3 0 .- Es el inicio - presentación 
del programa y está compuesto por las 
líneas 1 y 19. Su misión es hacer una 
limpieza ( o inicialización) de las varia¬ 
bles (comando VAC), indicar el tiempo 
de impresión de cada cartas y preguntar¬ 
te (muy amable por su parte} si quieres 
empezar repartiendo tú. 

En las líneas 19 y 24, aparece la 
instrucción IF AS >"0", Es la com¬ 
probación de tu respuesta a la pregun¬ 
ta que te ha hecho (en la línea 19 si 
quieres repartir y en la 24 si quieres car¬ 
ta]. Esto es debido a que si este verano 
ligas con una extranjera, tal vez le sea 
más fácil, para decir "sí", escribir "yes" 
o "oui" pudiendo contestar también 
tú, de forma más rápida, con una simple 
"s" (esto lo leí en un número anterior 
del O.P.). El "no", en otros idiomas, es 
más estandard y si pones una simple 
"n' J , también te lo admite, 

BLOQUE 4 o Es tu turno de juego, 
bien porque seas mano (empieza en la 
línea 20), bien porque, siendo mano la 
calculadora, ésta haya decidido plantar¬ 
se, en cuyo caso el control pasa de la 
línea 36 (del 5 o bloque) a la 21. 

Este bloque comprende las líneas 

20 a 25 siendo su misión: darte carta 
(para lo cual recurre al 2 o bloque), com¬ 
probar si te pasas ( lo cua es hecho, al 
igual que lo anterior en la línea 21), de¬ 
cirte el total de puntos que llevas acu¬ 
mulados (y la carta que te ha salido, to¬ 
do en las líneas 22 y 24 ) y preguntarte 
si quieres otra carta. 

Cuando te plantas, el control es 
trasferido a la línea 26 [bloque 5° ) 
en el caso de que seas mano (K- O}. 
En el caso de que la calculadora sea ma¬ 
no, el control irá al bloque 6 o (línea 
8) donde se decidirá el ganador. 

Si te has pasado, se pasa de la línea 

21 a la 17 (bloque 6 o ) donde se dará 
como ganadora a la máquina. 

BLOQUE 5 o .- Es el turno de juego del 
calculador y, básicamente un bloque 
análogo al anterior. 

Cuando tu CASIO es mano, se en¬ 
tra al bloque a través de la línea 37 
(donde se nos avisa que ella es mano y 
va a efectuar su baza). En el caso de que 
seas tú quien juegue primero, el con¬ 
trol será transferido, una vez que te 
hayas plantado, de la línea 25 del blo¬ 
que antes explicado a la 26, que es la 


entrada, en este caso, del bloque que es¬ 
tamos estudiando ahora. Aquí, tengo 
que hacer un alto para explicar dos co¬ 
sas: una regla básica del juego y su apli¬ 
cación al programa, 

La regla consiste en que el jugador 
que es mano tiene derecho cuando se 


planta, a que una de sus cartas esté vuel¬ 
ta (oculta). Esto no es aplicable cuando 
el jugador se pasa o cuando se planta 
con siete y media, ya que en ambos ca¬ 
sos debe avisar a su o sus contrarios. 

El primer caso ya está recogido en 
las líneas 21 (iF E > 8...), para el juga- 


BLOQUE 20 
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dor, y 28 (iF D > 8.J, para la máquh 
na. El 2°, queda claro al ver la aplica¬ 
ción de 3a regla. 

Aunque cuando te juegas las pelas 
(o los cafés) tienes derecho a ocultar la 
que quieras, aquí' habrás de ceder un 
poco, puesto que sólo se mantendrá 
vuelta la última carta* 

Cuando tú eres mano, tu total acu¬ 
mulado es E, El calculador, en la línea 
26 lo que hace es restar de ese total, la 
última carta sacada (C), creando una 
nueva variable F— E — C, que será el va¬ 
lor que habrá de superar. Este paso es 
anulado por dos causas: 

a) Que sea F menor que 5 ( puedes 
cambiar el 5 por otro valor que tú creas 
más conveniente). Esto ocurre, por 
ejemplo, cuando la primera carta que te 
sale es un 6 o un 7 y decides (muy sabia¬ 
mente) plantarte, o cuando teniendo un 
2 te sale un 6* En tales casos, el calcula¬ 
dor se obliga a sacar más de 5. 

b) Esta causa constituye la 2 Ú excep¬ 
ción a la regla de la carta oculta, esto 
es, cuando te plantas con siete y media. 
Cuando esto ocurre, el calculador, en la 
línea 27 se da por enterado y obra en 
consecuencia, haciendo que el mínimo 
F a superar sea F = 7 {habrá de sacar 
más de siete y no pasarse, luego sacar 
siete y media). 

En el caso de que sea la máquina 
quien juega primero, la línea 38 (en 
este caso, el bloque empieza en la 37) 
contiene un método para generar la va- 
riable F y que nos dará un número conv 


BLOQUE 3° 



H*u¡3Mg +cipplc II 


CONTABILIDAD RESUELTA 
SEGUN EL PLAN 
CONTABLE NACIONAL. 



PA RA MAS INFORMA C¡ ON 
ENVIAR ESTE CUPON A: 

Gral. Martínez Campos, 5, Bajo izda, 

MADRID-10 ■ Tfnos.: 445 84 38 ■ 446 60 18 / 

Brusi, 102, Entresuelo 3 o j? .'<y - 

BARCELONA-6-Tfnos.: (93)201 21 03 J S> y 

- — - 


Muchísimos usuarios en España lo testi 
monian. 

Utilice el programa Mayges. 

Desarrolle con Apple II su contabilidad. 
Entrega inmediata. 

Precio: 57.500 pts. 






prendido entre 3 y 5. De esta forma 
queda más aleatorio el total acumulado 
por el calculador. Si no te gusta el que 
hay, puedes cambiar este método por 
otro más acorde con tus preferencias» 
La salida de este 5 o bloque se hace 
por dos vías, según quién sea mano: 

a) Si quien reparte es la máquina, 
(K - 0), ía línea 33 trasfiere el control 
del programa al bloque 6 o , donde se de¬ 
cide el ganador. 

b} Sí la máquina es mano (K “ 1), 
las líneas 35 y 36 se encargan de escon¬ 
der su última carta (salvo en el caso de 
que tenga siete y media, ya que enton¬ 


ces lo que hace es esconder su última 
carta pero avisarle de lo que tiene me¬ 
diante "TOT: 7*5") y, tras la frase 'TE 
TOCA JUGAR", transferir el control a 
la línea 21 (al bloque 4 o ). 

BLOQUE 6 U Este bloque es el encar¬ 
gado de deciedir quien ha ganado esta 
mano y quién va a repartir en La siguien¬ 
te (recuérdese que el que tiene la baraja 
gana la mano, con, tan solo, empatar la 
puntuación del contrario), indicando 
además los puntos de cada uno y el es¬ 
tado del marcador. Está formado por las 
líneas 8 a 18 salvo las 15 y 16 que for¬ 
man el bloque I o . 


Se entra por dos caminos, según 
motivo: 

a) Sí uno de los dos jugadores se pa¬ 
sa, se entra al bloque por las líneas 17 ó 
18 sí es La máquina la que lo ha hecho}. 

b} Si no se ha pasado nadie, la línea 
de entrada al bloque es la 8, decidiéndo¬ 
se en ésta y las dos siguientes quien es el 
ganador de La mano. La línea 10 nos 
muestra los totales obtenidos, diciendo 
quien gana. 

Ambas entradas desembocan en La 
línea 11. Esta y las dos siguientes tienen 
como misión adjudicar La baraja en la 
siguiente mano. 
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BLOQUE 6 o 
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o 

< 

oc 


m 



La línea 14 pone a cero los totales 
y nos muestra el estado del marcadorfel 
record lo tienen mi hermano Pablo, con 
un tanteo final de 727 el por 113 la má¬ 
quina, transfiriendo el control al bloque 
I o que comprueba el estado de la bara¬ 
ja y la repone en caso necesario* Desde 
aquí, el programa saltará al punto de 
retorno, el cual, a su vez, lo enviará al 
lugar indicado por las líneas 11,12 y 
13* 


Para los usuarios de otros tipos 
de calculador: 

- El comando W AIT es una parada 
de programa para impresión* Puede que 
ellos tengan un PAUSE u otro equiva¬ 
lente. 

-El CSR r por su parte, es un con¬ 
trol del cursor totalmente análogo al 
TA Bde la mayoría de las máquinas. 

— RAN# es una rutina interna para 
generación de números pseudoaleato- 


rios* Sí tu calculador no la tiene (por 
ejemplo la PC-1211) habrás de ponerla 
como una subrutína más dej programa, 

A nivel de reglas del juego, hay una 
que no aparece en el programa :cuando 
la primera carta que sale es un cuatro, el 
que juega tiene derecho a devolverla y 
pedir otra en su lugar. Cuando creé el 
programa, me pareció que esta norma 
restaba emoción al juego (pido,.,no pi¬ 
do,.,} y decidí no incluirla. Vosotros po¬ 
déis hacerlo si queréis* 

En el punto de economías de pro¬ 
gramación (recordad que inicialmente 
era 400 pasos más largo} puedo apuntar 
varias notas que, a lo mejor os sirven de 
ayuda en otros programas de vuestra 
CASIO: 

— Este programa esta hecho en lo 
que podemos llamar estructura modu¬ 
lar, Esta técnica consiste en dividir el 
programa en bloques, cada uno con una 
misión específica, y que se pueden crear 
y comprobar por separado (rutinas ín* 
dependientes). Tan importante como 
crear bien los módulos es ordenarlos y 
trenzarlos convenientemente. Sobre es¬ 
to en el CLP. han salido artículos referi¬ 
dos al tema, 

— Los usuarios de Ja FX-702-P de¬ 
ben recordar que tienen 62 caracteres de 
capacidad por línea y que deben apro¬ 
vecharlos ai máximo (Vease por ejemplo 
la línea 1 del juego, cuya I a misión es 
transferir el control a la parte baja del 
programa dejando el principio para la 
subrutina, y que, sin embargo, está 
cumpliendo otras misiones aparte de la 
anterior). Lo que recomiendo es hacer 
un primer programa, comprobarlo y, 
luego "optimizarlo", condensando las lí¬ 
neas. 

Finalmente, ¿os habéis fijado en 
que es el juego de las 7.6 y que este nú¬ 
mero no aparece por ninguna parte? 

Joaquín E. Izquierdo Sobrino* 


P2t 959 STEPS 

1 m í hrit m?% 

T * SIETE Y H 
E0IfiV8U!ERES 
REPARTIR"!¡BOTO 
19 

2 z=ÍHT (RííNt*135 
¡C=Z*l:lF M% 
THEN 2 

3 IF RíZM THEH 

4 k)=ñíZHiíF 
ZujRET 

5 C=.5:IF 
37 i !! ¡REÍ 

6 r: 

7 Bí=" r«ET 

+ÍMF K=8;IF Di 
E !¥$=** GIMO” ¡J= 
J+ií1=1-1 
9 ÍF K=liíF D>EíV 
$="í6RNÜ ff ¡J=J+i 
í1=1-1 

I? rRT "WiEJCSR 

Ü IF K=i THEN 13 

12 IF £>D?IF E>7;Y 

13 IF D>£'iF D>?;y 

=2 8 


14 D=§:E=e:PRT ^YB 

HOS: Y 

g¡n. J 

15 fl=e:FGK L=8 TO 
3:«-«+fKL):HEXT 

LiIF «M5SRET 

16 PRT H ==ESTÜY Bfl 
RfiJfiKÍ>0==”: F9R 
L=3 10 9:R(L)=4 
sHEsT UPE! 

17 PRT CjEíME Pfi 
3HS. 8BHG”’J=J+ 
I:E=0:6010 11 ■ 

18 PRT CrBi^-HE FB 
SE. GflNfiS*: 1=1+ 
1:0=8;SATO 11 

ÍS INF Cí:GSB 14:i 
F CÍ> n Q” THEH 3 
7 

28 PRT TORIO. E 
RES 
Y=-?S 

21 ese 2:E=E+C:¡F 
EiSlSSB í?:SOTO 

22 IF KlíPST B*s: 
GOTO 24 

23 FK! C: 

24 PRT CSR 3í*:TÜT 
: s íE;CSR I3f n Cñ 


RTfl n "JHP BíÜF 
Rt>”0” THEH 21 

25 ÍF K=iíSSB 8:80 
10 Y 

2Í PRT CSR «Til I 
ÜRHO fl :F=E-í:IF 
5)F;F=5 

27 IF E>7;F=T 

23 6SB m+CÜF 
D¿8?BSB 13:8010 
1 

29 SF DÍF THEN 34 

38 IF CilíPRT Cí B f 
"üSQTQ 32 

31 PRT »}Ví 

32 IF DéF THEH 28 

33 PRT " HE PLBHTO 
.»:SSB 3:8010 Y 

34 IF K=8 THEN 38 

35 PRT "<X>"!5IF B 
>7íPRT " TST:”: 

í\: 

38 PRT * HE PLBHTO 
,”m 4i”TE TÜ 
CB JUSftR”:SOTO 
21 

37 PRT CSR 4‘"REPfi 
RIES TU.", "SOY 
mm, HI JUGflM 

33 F=INT Í3+2*RBNÍ 
):¥=37:SOTO 28 
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juegos 



¿Es EL BASIC intérprete muy 
lento para realizar un juego de 
video?. Este programa demuestra 
que no. Sólo es necesario evitar 
complicaciones inútiles para 
avanzar a toda velocidad, por un 
recinto lleno de obstáculos. Bue¬ 
na Suerte. 


En la pantalla del TRS 80 se 
distingue un punto que parpadea. 
Es la posición de salida del vehí¬ 
culo. Antes de arrancar, respire 
hondo y concéntrese, ya que no 
hay freno. Para detenerse no hay 
más que una solución: chocar 
contra algo. Pero el juego termi¬ 
na. Al cabo de cuánto tiempo?. 
El resultado que aparece se lo co¬ 
munica. 

Debe evolucionar evitando los 
obstáculos diseminados por el re¬ 
cinto. Están representados por 
puntos luminosos situados al 
azar. Pero cuidado, no puede to¬ 
marse dos veces el mismo cami¬ 
no. Elija con cuidado la trayecto¬ 
ria, siempre que tenga tiempo de 
hacerlo. 


El programa empieza por pre¬ 
guntar el número de obstáculos y 
la velocidad. Si se empeña, con¬ 
tra toda lógica, en elegir la máxi¬ 
ma velocidad (100 kms/h.), es us¬ 
ted muy dueño. 

Con una velocidad baja, el jue¬ 
go está al alcance de los niños. 
Hacen progresos rápidamente. 

Para desplazarse se utilizan las 
teclas t 4 ;cuando se pulsa 
una de ellas, se continúa en esa 
dirección hasta que se cambie de 
dirección o el vehículo colisione. 

Se considera colisión, la efec¬ 
tuada contra los límites del recin¬ 
to, los obstáculos y la trayectoria 
pasada (tanto volviendo sobre 
ella, como cruzándola). 
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10 REM * SORTEO DE OBSTACULOS * 

20 RE ¡A AUTOR: JESUS GARCIA 

30 REM COPYRIGHT EL ORDENADOR PERSONAL 

40 REM 

100 GOSUB 1000 :REM REGLAS DE JUEGO 

110 GOSUB 1200 :REM CONDICIONES INICIALES 

120 GOSUB 1300 iREM PREPARACION DEL TERRENO 

I 40 GOSUB MOO :R£M ESPERA DE UN CARACTER 

150 GOSUB 1700 :REM DESPLAZAMIENTOS 

160 GOSUB 1900 íREM RESULTADO 

170 PRINT 

ISO PRINT N QUI ERE JUGAR OTRA PARTIDA EN LAS MISMAS CONDICIONES" 
19 Q GOSUB 9000 i REM TEST SOBRE LA RESPUESTA 

200 ÍF R$ = "S' 1 THEN 120 ELSE 110 
210 END 

1000 REM *********************#*************+*********** 

1010 REM REGLAS DE JUEGO 

1020 CL5 

1030 PRINT TAB<10)"**** SORTEO DE OBSTACULOS ****" 

1040 PRINT TABU0)"..... 

1030 PRI NT: PRI NT" PULSAR SOBRE rr íCHR$(93); 

1060 PRINT"PARA DESPLAZARSE HACIA LA IZQUIERDA" 

1070 PRI NT :PR I NT 11 "íCHR${94); 

1080 PRINT"-.-.LA DERECHA 11 

1090 PRINTiPRINT" "íCHR$í9l); 

IJ 00 PRINT"...-- ARRIBA" 

1110 PRINT:PRINI" "íCHRS(92); 

1120 PRINT"--..- ABAJO" 

1130 PRINT:PRINT 

1140 PRINT"TRATAR DE EVITAR DOS OBSTACULOS I BUENA SUERTE" 

1150 RETURN 

1200 REM —.-------------.-------.---- 

1210 REM CONDICIONES INICIALES 

1220 PRINT:PRINT 

12 JO INPUT"VELOCIDAD DE I A 100 KM/H M ;V 
1240 V-101-V 

1250 IF V<1 QR V>IQÜ THEN 1230 

1260 INPUT"NUMERO DE OBSTACULOS DE 100 A 500";OB 
1270 IF QB<100 OR OB>500 THEN 1260 
1280 RETURN 

1 300 REM —.....-.. 

1310 REM PREPARACION DEL TERRENO 

1320 RANDCM 
1330 CL5: C=0 

1340 POR X=Ü TO 127 :REM TRAZA DE BORDES DEL TERRENO 
1350 SET(X t 0) 

1360 SETÍX.47) 

1370 NEXT X 
1380 FOR Y=0 TO 47 
1390 SETÍO^Y) 

1400 SETÍI27,Y) 

1410 NEXT Y 

1420 FOR 1-0 TO OB íREM SITUA LOS OBSTACULOS 
1430 SET(RNDU26) ,RND( 4é>) 

1440 NEXT ] : REM GENERACION DEL VEHICULO 

1450 X=RNDÍ126):Y=RND(46) 

1460 IF POlNT(X,Y}=- i THEN 1450 
1470 RETURN 

1 500 REM.-.---- 

1510 REM ESPERA DE UN CARACTER 

1520 Z=0 

1530 RSstNKEYS 

1540 Z=Z+l 

1550 IF Z=15 THEN GOSUB 1600 
1560 IF R$=" " THEN 1530 
1570 RETURN 

1600 REM..... 

1610 REM PARPADEO DEL PUNTO 

1620 Z = 0 

1630 IF POlNT(X,Y) = - I THEN RESETÍ X,Y) ELSE S£T(X,Y) 

1640 RETURN 

1700 REM -...-... 

1710 REM DESPLAZAMIENTOS 

1720 B=ASC(R$) 

17 30 ÍF B=8 THEN M=-1 i N^n 

1740 IF B=9 THEN M=1 : N^O 

17 50 IF B=91 THEN M=0 : N= - 3 

1760 IF B= 10 THEN M=0 : N= 1 ELSE 1820 

1770 X^X+M ■ Y-Y+N 

1780 IF POlNT(X,Y)s-1 THEN 1840 

1790 C=C+1 

1800 SETCX,Y) 

1810 FOR T=1 TO V í NEXT T 
1820 RS-INKEYS 

1830 IF R$í"" THEN 1770 ELSE 1720 
1840 RETURN 

1900 REM.. - -........ 

19 10 REM RESULTADO 

19 20 FOR T =I TO 1000 : NEXT T 
1930 CLS 

1940 PRINT "VUESTRA PUNTUACION ES DE";C¡" PUNTOS" 

1950 PRINT 

1960 IF C<=ZZ THEN PRINT 11 * A MEJOR PUNTUACION ES LA DE M | N $ 

1961 PRINT 11 CON ";ZZ; ,r PUNTOS 11 i GOTO 2000 
1970 PRINT "BRAVO;ES USTED EL MEJOR" 

1980 PRINT íINPUT"CUAL ES SU APELLIDO ”*N$ 

1990 ZZ=C 
2000 RETURN 

9000 REM ----.-.....— - 

9010 REM TEST SOBRE LA RESPUESTA 

9020 R$=INKEY$ 

9030 IF R$ = ,M1 THEN 9020 

9040 IF R$<>"S" AND RSo^N 11 THEN PRINT" 51 O NO "jiGOTO 9020 
9050 RETURN 





















--- * --- . - 

Los invasores han viielto, 
yo los he encontrado 


¿Quién no conoce a los invasores? Hoy tiene Vd. 
que vérselas con invasores nada "corrientes": hor¬ 
das de extraterrestres, a la cabeza de los cuales rei¬ 
na una cazador invencible. Este último tiene, en 
efecto, la posibilidad de "tragarse" los tiros que le 
son disparados. Su propósito: reducirle a la nada. 
Pero el Vic 20 viene en su ayuda y quizás tenga éxi¬ 
to eliminándolos antes de que ellos le destruyan. 


Para intentar salvar la berra (y a 
Vd. mismo, ai tiempo), dispone de un 
cañón móvil cuyo manejo es muy sim¬ 
ple: 

• la tecla CRSR para maniobrar 
hacia la izquierda, 

• la tecla CRSR para maniobrar 
hacía ia derecha, 


• ia barra de espaciamiento para dis¬ 
parar. 

¿Esto es todo, me dirá Vd.? si, bue¬ 
no casi, pues le falta introducir el pro¬ 
grama. Luego, le toca jugar. 

Si se quiere jugar evitando releer las 
explicaciones, es preciso pulsar RUN5Q. 


Principales variables 


P: posición del cañón. 

PC: posición de! cazador. 

T1,T2: indicadores de tiro. 

NT: número de tablas jugadas. 

IV: incremento de la posición del 
cañón. 

IC: incremento de la posición del 
cazador. 

TV: posición de tiro del cañón. 
LT: posición de tiro del cazador, 
S: puntuación. 


El defecto principal de estre progra¬ 
ma es su relativa lentitud debida al len¬ 
guaje utilizado, el Basic. Además, co¬ 
mo ocupa la casi totalidad de la me¬ 
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READV. 


1 PGKE 55 , 24 : PÜKE52, '24 : CU? 

40 GOSUBieee 

50 PRINT 'C? ! ; S=3 : GOSLiB10000 
63 GO5UES880 
70 5OSÜB4000 
80 ENB 
115 GGTQ98 

1800 PRINT”r>###SPRCE INVABER3****" 

1030 PRINT:pRINT”EEFIENBE La TIERRA”,"CONTRA SUS ENEMIGOS”, "VENIDOS DEL ESPACIO 1 
1040 PRINT'GRACIRS A = ": PRINT: PRINT 11 UN CANON MOVIL." 

1060 PRINT'FUEPES MOVERLO CON LA3TECLAS : * 

1070 PRINT' !^- :: "TaíSR , " , íi:RSR" ,i -Sr i @" 

1030 PRINT"'*" ~T" 

1030 PRINT"PARA DISPARAR SE USR LR BARRA BE ESPACIOS S i" 

1100 FORM=1TO15000-NEXT 
1110 PRI NT " 71" '■ RETURN 
2000 REM 

2020 P=11 : PC=11 : NT=0 : T2=0 
2030 NT=NT+1 : IFNT>3THEN RETURN 
2040 FORI=0T012STEP2 
2050 FORJ=0TO21 

2060 PGKE7680+22*I+J,í = POKE38400+22W+J, 5 
2070 NEXT:NEXT 

2080 POKE8164+F,0:P0KE38884+P,6 
2090 PGKE798S+PC,2'POKE33708+PC,6 
2110 X=PtEKC203) 

2115 IVs0 

2120 IFX=64THENIV=0 

2130 IFX=3ITKENIV*-i 

2140 IFX*=23THENIV=1 

2150 IFP+1V<00RP+1V>21THEN IV=0 

2160 P0KE8164+P,32 

2170 P=P+IV ; F0KE8164+F,0 : P0KE38384+P,6 
2180 IC=<P-PC)*RNDa> 

2130 IFPC+ICC0ORPC+IO21THEN IC-0 
2200 P0KE7988+INT(PC),3E 

2210 PC=PC+IC=P0KE79S3+INT<PC>,2 POKE38708+INT<PC),S 

2230 IFTÍ=1THEN2260 

2240 IFPEE K(283)0327HEN2310 

2250 CT=P ; Tl=l : TV=8Í64 

2260 F0KETV+CT,32 

2270 IFTV-22+CK7680THEN T1=0: G0T02313 
2280 TV=TV-44 

2290 IFPEEK(TV+CT)=1THEN30S0 

2235 1FPEEK(TV+CT>-2THENT1=0 

2300 POKETV+CT, 3 : POKETV+CT+30720,6 

2310 GOSUBS000 : GOSUB6000 : IFZ=1THENRETURN 

2320 QCTG2118 

3000 P0KE36878,15:P0KE36876,150 

3020 S=S+1 ; IF3-154THEN3180 

3030 T1=0:POKE36876,0:POKETV+CT,32 : GOTO2110 

3100 FORX=250TQ12SSTEP-1 

3110 P0KE36876,X 

3120 FORJ=1TOÍ0 ; NEXT 

3130 NEXT 

3140 POKE3687S,0 

3150 PRINT’T: GOTO2030 

3300 P0KE36877,150 

3310 FORX=I5T063TEP-1 : F0KE36S78,X : FORI = 1TO50 : NEXT:NEXT = P0KE36877,0 
3320 PRINT"!! 11: P0KE36363, 240 = Z=1: RETURN 
4000 FRINT"PUNTUACIOH “,S," PUNTOS." 

4010 RETURN 
6600 IFT2=1THEN 6020 
6810 LT=PC+80Í0 ; T2=1 
6020 IC=RND<1)*2 
6030 POKELT > 32 

6040 IFLT+I031 ó3THENT2=0 : GGT06090 
6050 LT»LT+21+IC 
6060 IFPEEKCLT)=0THEN3300 
6070 POKELT 1 3 : POKELT+30720,7 
6090 RETURN 

10008 RESTORE ; FQR1=6144TG6175 
10010 RtñBA : PGKEI, A 
10020 NEXTI 

10025 POR I=6400TO640?¡PGKE1,0:NEXT 

10030 DATA0,24,24,60,126,255,255,255,24,60,126,126,24,36,66,66 
10040 DATA129,90,60,126,60,24,0,0,8,8,8,8,8,8,8,8 
10950 P0KE36869,254 
10060 RETURN 



Descripción del programa 

L tneas Comen tartos 

1 

Protección de la zona utilizada co¬ 
mo nuevo generador de caracteres. 

40 

Llamada del sub-programa de pre¬ 
sentación. 

50 

Llamada del sub-programa de pro¬ 
gramación de los caracteres. 

70 

Llamada del sub-programa de re¬ 
sultados. 

1070 

Los CHR$ (34) corresponden a las 
comillas. 

2020 

Carga de las variables. 

2040 

Comienzo del bucle de dibujo de 
los invasores. 

2070 

Fin del bucle. 

2080 

Visualización del cañón. 

2090 

Visualización del cazador. 

2110 

La casilla n° 203 de la memoria con¬ 
tiene el código de la tecla pulsada. 

2160 

Borrado del cañón. 

2170 

Cálculo de la nueva posición del ca¬ 
ñón y visuafízación. 

2180 

i Cálculo de la nueva posición del ca¬ 
zador (cálculo en parte aleatoria). 

2210 

Visualización del cazador. 

2230 

El tiro del cañón ¿Está siempre en 
pantalla?. 

2240 

¿Dispara el cañón? 

2260 

Se borra el anterior tiro del cañón. 

2270 

¿Sale de la pantalla el tiro del cañón? 

2280 

Calculo de la nueva posición del ti¬ 
ro del cañón. 

2290 

¿Ha tocado aun invasor el tiro del 
cañón? 

2295 

El cazador ' se traga" el disparo. 

2300 

Visualización del tiro. 

2310 

Llamada del sub-programa de tiro 
del cazador. 

2320 

Retorno a los desplazamientos. 

3000 

Sonorización. 

3020 

Incremento de la puntuación, ¿Se 
ha alcanzado a todos los invasores? 

3030 

Parada del sonido, borrado de! tiro. 

3100 

Bucle de sonorización en el caso de 
que hayan sido "tocados" todos los 
invasores. 

3300 

Bucle de sonorización en el caso de 
que el cañón haya sido alcanzado. 

6000 

El tiro del cazador ¿Está siempre 
en pantalla? 

6010 

Si no se calcula la nueva posición 
por referencia a la deí cazador. 

6020 

Cálculo del movimiento de tiro. 

6030 

Borrado del tiro anterior. 

6040 

¿Va a salir de la pantalla el tiro? 

6050 

Calculo de la nueva posición de tiro 

6060 

El tiro ¿Alcanza al cañón? 

6070 

Visualización del tiro. 

10000 

Subprograma de carga de nuevos 
caracteres. 

10050 

Cambio de dirección del genera¬ 
dor de caracteres. 


moria viva, no he podido insertar la 
pregunta: "¿Quiere Vd. jugar otra 
vez?" y su tratamiento. 

¿Quién programará el mismo juego 
en ensamblador? ¡Buena caza! 


Ireadv. 


Francisco Dervaux 
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LE OFRECE LAS MEJORES 
SOLUCIONES A SUS 
MULTIPLES 
PROBLEMAS 
CON SU 




...y a un precio increíbles 79.500 pls. 


AGENDA/DíETA- 
RIO/CONTA BILI DAD 
— Permite archivar 
unos 200 clientes. 
—Realizar unos 1000 
asientos contables, 
—Llevar un diario 
corrí pisto, _ 


I MATEMATICAS II 
— Interpolación lineal y 
parabólica. — Resolución 
de ecuaciones, — Ajustes 
por mínimos cuadrados, 
- Cambios da base. —Po 
Mnomio*. 


MATEMATICAS I 
—Derivadas 1 a y 2 a 
— integrales 
“Máximos v mmimos 
—Resolución F(x) =0 


BASE DE DATOS 
— Le permite crear 
cualquier tipo de fi¬ 
chero, definiendo los 
campos que Vd, desee. 




FACTURACION Y ARCHIVO 
DE CLIENTES 

— Permite archfyar unos OOOcllen 
tes con todos sus datos, 

— Almacenar de 25 a 50 facturas, 
jiunto con sus albaranes, al Intro¬ 
ducir los datos dal pedido y ges¬ 
tiona el archivo de clientes. 

— Tambl-én permite efectuar las 
factures y albaranes Individual¬ 
mente. 



TRATAMIENTO G£ TEX¬ 
TOS CON GESTION DE 
fichero de CLIENTES 
— Permite crear, aumentar, 
corregir, editar, archivar, car¬ 
gar e Imprimir un texto y 
gestiona e| archivo de clien¬ 
tes. 


JUEGOS I 

-■ La gallina saltarlna 

— EI gusano loco 

— Batalla, de tanques 


/ 


JUEGOS II 

— Slalon 

— Batalle naval 

— Muertos y heridos 




ARQUITECTURA 
—Pilares metálicos 
—Viga biapoyada 
—Cerchas 


— O issasem bler 

— Volcado hexadeci 
mal 


Electrónica de consumo-1, S A. (Grupo OTESA) 
c/ Virgen de Lourdes, 40 post, 28027-MADRID 
Telfnos. 405 02 00 y 405 02 61 


Nombre.... , p . , , .. 

Dirección ... ,.. 

Población ......... 

Profesión ..... 

Desearía recibir información más amplía sobre el FP-20Ü. 














































En el presente artículo se describe lo que es un 
código de barras, tomando como ejemplo el de¬ 
nominado "Industrial 2 de 5" y la forma de 
llevarlo a cabo mediante una impresora de agujas 
(la C. Itoh 8510) y un sencillo programa Basic. 


¿Qué es 

un código de barras?. 

Por código de barras se entien¬ 
de normalmente un sistema de 
codificación, que permite intro¬ 
ducir datos directamente al orde¬ 
nador mediante un lector óptico 
(luz, láser o infrarrojos). En esta 
codificación, cada dígito o carác¬ 
ter viene representado por una 
sucesión de barras negras, varia¬ 
bles en anchura y/o en número y 
separadas por espacios blancos, 
que el ordenador “lee” interpre¬ 
tándolo según unas reglas deter¬ 
minadas. Actualmente se utiliza 
en multitud de aplicaciones. Por 
ejemplo, en los grandes almace¬ 
nes, cada punto de venta dispone 
de un lector óptico y cada articu¬ 
lo lleva grabado previamente ei 
código que lo identifica. A la ho¬ 
ra de la venta, el operador desliza 
el lector sobre la superficie del 
código de barras y el ordenador 
se entera inmediatamente de qué 
articulo está siendo vendido, con 
lo cual imprime la factura, actua¬ 
liza existencias, etc. de forma au¬ 
tomática y sin posibilidad de 
error. 


Código industrial 2 de 5. 

Este código permite represen¬ 
tar cada uno de los 10 dígitos de¬ 
cimales en sucesión ilimitada. Es¬ 
tá formado por barras de dos an¬ 
churas distintas, la ancha y la es¬ 
trecha, separadas por blancos, 
donde la barra ancha es igual, 
aproximadamente, a tres veces la 
anchura de la estrecha y el blan¬ 
co, aproximadamente, igual a la 
estrecha. Cada dígito viene repre¬ 
sentado por dos barras anchas y 
tres estrechas, combinación que 
admite exactamente 10 posibili¬ 
dades. El código debe ir precedi¬ 
do, además, por un indicador de 
principio (start) y un indicador 
de final (end) para la sincroniza¬ 
ción y para permitir la lectura en 
ambos sentidos. En el programa 
basic puede verse cómo se codifi¬ 
ca cada dígito, así como los dos 
indicadores. 

Programa Basic: 

El programa Basic presentado 
en la figura, permite construir 


mediante códigos 2 de 5 median¬ 
te la impresora C. itoh 8510. 
Está dividido en tres partes: ini- 
ciaüzación de variables, input por 
pantalla, y salida por impresora. 

Las líneas 10230-10320 cons¬ 
tituyen la definición del código. 
La variable UNOS representa una 
barra ancha más un espacio blan¬ 
co y la variable CEROS una barra 
estrecha más un blanco. La varia¬ 
ble dimensionada CODES { ) 
contiene las codificaciones de ca¬ 
da dígito, de forma que CODES 
(0) contiene el código para el 0, 
CODE$(l) para ei 1, etc. 

En la línea 10380 se entra por 
pantalla el número que se desea 
codificar y se deposita en la va¬ 
riable string CODES, 

Las líneas de la 10450 a la 
10600, que acaban con un GO¬ 
TO. podrían acabar con un RE- 
TURN y constituir de esta forma 
una subrutina de utilidad general. 
Las variables de entrada que utili¬ 
zaría serian, la CODES (string a 
codificar) y la P025 (columna o 
posición a imprimir el código). 

Los pasos que efectúa esta su¬ 
brutina son los siguientes: 

La instrucción 10450 pone a 
cero el espaciado interlíneas (line 
feed de 16/144 pulgadas). 

La 10460 coloca a la impreso¬ 
ra en unidireccional. Esto es con¬ 
veniente para obtener mayor ho¬ 
mogeneidad de impresión, aun¬ 
que no resulta imprescindible. 

La línea 10470 coloca a la im¬ 
presora en “boldface”, letra ne¬ 
grita con la que se consigue ma¬ 
yor densidad de impresión. Tam¬ 
poco es imprescindible si la cinta 
está en buen estado. 

El bucle FOR-NEXT de la lí¬ 
nea 10480 es para repetir 4 veces 
la misma línea, consiguiéndose 
de esta forma un código suficien¬ 
temente ancho. 

La línea 10490 es el comando 
“start graphics mode”. En gra- 
phics mode esta impresora inhibe 
su generador interno de caracte¬ 
res y pasa a bit image. En bit 
image cada bit de un byte repre¬ 
senta a una de las ocho agujas de 
impresión. Si el bit está a uno sig- 
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Programa. 


10000 
100 1 c 
1 00 20 
10030 
10040 
1 00 50 
1 00 óü 
10070 
1 00 80 
10090 
10 10 0 
1 0 1 10 
1 0 i 20 
10 130 
1 ü 1 40 
10 150 
10 1Ó0 
10 170 
10180 
10 190 
10 200 
10210 
10 220 
1 0 230 
10240 
10250 
102ÓÜ 
10270 
10280 
1 0 290 
10300 
1 0310 
10 320 




' FICHERO BAR2/5.BAS 
' PROGRAMA COOIGO DE BARRAS 
' CODIGO INDUSTRIAL 2/5 

' PROGRAMA HECHO POR F.H.C. 

' DISTRIBUIDORA DE SISTEMAS EL. 

' ORDENADOR i SUPERBRAIN 
' CP/M 2.2 

' MBASIC 5.21 

/ 

y IMPRESORA : C.ITOH 6510 


' INICIALIZACION DE VARIABLES: 

UNQ*=STRING* < 3,255 > + STRING*< 2,0 > 
CERO*=STRING*C1,255) +STRING*< 2,0) 

DIM CÜDE*( 9) 

WIDTH LPRINT 255 

CODE* < 0 )=CERÜ$ +CERG*+UNO*+UNO*+CERO* 
CQDE*<1)=UNO*+CERO*+CERO*+CERO*+UNO* 
CODE* ( 2)=CERO*+ UNO*+ CERÜ*+ CERO* + UNO* 
CODE*< 3)=UNO*+UNO* + CERO*+CERO*+CERO* 
CODE*< 4 >=CERO*+CERÜ*+UNO*+CERO*+UNG* 
CODE*(5)=UNO*+ CERO*+ UNO*+CERQ*+ CERO* 
CODE*< 6)=CER0*+UN0*+UNÜ*+CERQ*+CER0* 
CODE*(7)=CERO*+ CERO* + CERQ*+UNO*+ UNGÍ 
CODE* < S > =UNO* + CER0*+ CER0*+ UNO*+ CERO* 
CODE*< 9>=CER0*+UN0*+CER0*+UN0*+ CERO* 


10330 ' 

1 0340 
10350 ' 

10360 ' INPUT POR PANTALLA: 

10370 ' 

10380 LINE INPUT "ENTRAR NUMERO >";CODE* 

10390 IR CODE*="" THEN END 
1Ú 400 ' 

10410 /tfsSfffSfftfSt'SSt**'*********'** 

10420 ' 

10430 ' SALIDA IMPRESORA: 

10440 ' 

10450 LPRINT CHR*C27> "T16"; 

10460 LPRINT CHR*( 27) 

10470 LPRINT CHR*<27> CHR*<13>; 

10480 FOR IT25 = 1 TO 4 

10490 LPRINT TA6CP025) CHR*(27> "S"; 

10500 LPRINT RIGHT*< STR*( 10000 + LEN< CODE*)*19+26),4); 
10510 LPRINT UNO* UNO* CERO*; 

10520 FGR CN25=1 TO LENÍ CODE* > 

10530 LPRINT CGDE*<UAL<MID*(CODE*,CN25,1))); 

10540 NEXT CN25 

10550 LPRINT UNO* CERO* UNO* 

10560 NEXT IT25 

10570 LPRINT CHR*<27) "TG4" CHR*(27> ”<"¡ 

10580 LPRINT CHR*<27) CHRSI34) 

10590 LPRINT TAB<P025> "* “ CODE* H *" CHR*<27) “A" 

10600 LPRINT:GOTO 10380 
10610 ' 

1 0 620 * ''t" ' 


Resultado. 



* 987654321Ü * 


* 200 * 



* 450213 * 


nifica impacto de la aguja corres¬ 
pondiente; si está a cero significa 
no impacto. De esta forma se 
pueden confeccionar gráficos y 
caracteres especiales. 

La instrucción 10500 le dice a 
la impresora cuántos bytes le 
mandaremos en bit image. Dado 
que para cada dígito se necesitan 
19 bytes, en total necesitaremos 
(19 x longitud en caracteres de 
CODES) + los correspondientes 
a START y END, que son 26. 

La instrucción 10510 envía un 
código START. el bucle FOR- 
NEXT de las líneas 10520-10540 
envían sucesivamente la codifica¬ 
ción de ios dígitos contenidos en 
CODES, y la línea 10550 envía 
el indicador de final o END. 

En la línea 10570, se define 
un nuevo espaciado interlíneas y 
se regresa a impresión bidireccio- 
nal. 

La 10580 termina la impresión 
en negrita para volver a densidad 
normal y la 10590 imprime, de¬ 
bajo de las barras y ligeramente 
separado, la representación en 
decimal del código en cuestión. 
A continuación, mediante la ins¬ 
trucción chr$(27) “A”, se regresa 
a un espaciado interlíneas normal 
(1/6 de pulgada). □ 
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LA DIFERENCIA ENTRE UN ORDENADOR 
Y UN JUGUETE PERSONAL 

Descubra con Oric todas las posibilidades que tiene un 
auténtico ordenador personal por capadidad, software y 
periféricos. 

48 K. Más de treinta títulos de juegos. 

Aplicaciones profesionales para el nuevo Microdisc. 

Impresora Plotter con cuatro colores y, por supuesto, 
teclado profesional. 

La única cosa de juguete en un Oric es el precio. 
Compruébelo. 



Distribuidor exclusivo 



Preciados, 39 - Madrid-13 - Teléfono 248 56 35 




















Gran premio de Penches 


Una vez fijado el precio de 
la apuesta, los apostantes irán 
dando su nombre, asi' como e! 
número de caballo sobre el cual 
quieren apostar, todo ello a 
petición del ordenador, pudiendo 
apostar por cualquier caballo 
tantas veces como se desee. 

No podrán existir más de 
diez apostantes por caballo, en el 
momento de sobrepasar esta 
cifra, el ordenador nos dará el 
mensaje correspondiente, 
teniendo aún posibilidad de 
apostar por cualquiera de los 
otros caballos. 

Una vez dado el mensaje de 
fin, no se podrán realizar más 
apuestas, en este momento 


aparecerá el hipódrmo en 
pantalla y los caballos se 
colocarán en sus posiciones de 
salida. 

Pulsando la tecla "S" daremos 
comienzo al GRAN PREMIO DE 
PENCHES. 

A la llegada y para deshacer 
cualquier posible duda sobre 
quién es el caballo ganador, el 
ordenador nos dirá quién es el 
caballo ganador y quiénes los 
ganadores, así como la cantidad 
de! premio en pesetas. 

La cantidad repartida en 
premios supone el 80°/o del 
montante total, puesto que el 
20°/o es retenido por la 
organización. 


Si no hubiera ninguna apuesta 
sobre el caballo campeón, la 
totalidad del-montante apostado 
iría a parar a manos de la 
organización para mejoras en el 
hipódromo, así como si del 
resultado del reparto del 80°/o 
del montante total de apuestas, 
correspondiese una cantidad no 
entera en pts. a cada acertante, 
estas pts. irían también a parar a 
la organización. Por todo ello se 
les dará las gracias. 

La organización se despide 
hasta el próximo concurso en el 
que esperan tengan ustedes más 
suerte. 

Jesús García C ib rían. 
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10 REM **** GRAN PREMIO DE PENCHES **** 

20 REM AUTOR : JESUS GARCIA CIBRIAN 

32 REM COPYRIGHT EL ORDENADOR PERSONAL Y EL AUTOR 

4E DIM X(5), PSÍ5, 10) , RY.C5) 

50 CLS : P=0 

50 PRINT TABÍ1S) "GRAN PREMIO DE PENCHES"iPRINT:PRINT 
70 PRINT TABÍ19)"SE ABREN LAS APUESTAS":PRINT:PRINT 
30 PRINT"PUEDEN USTEDES APOSTAR POR LOS 5 CABALLOS" 

90 FOR 1=1 TO 5 s XCI)=0 : a)=0 : NEXT I 

100 INPUT"CUANTO ES EL VALOR DE LA APUESTA";A : CLS 

3.10 INPUT" NOMBRE DEL APOSTANTE (O FIN) “i A* 

120 IF AS="FIN" THEN 210 
125 P=P+1 

130 INPUT"SOBRE QUE CABALLO APUESTA"5 B 
140 IF B<l OR B> 5 THEN 130 

150 REM **** GUARDAR NOMBRES DE APOSTANTES ***# 

150 RY-CB) =RY-CB) +1 

170 IF R% < B > > 10 THEN 175 

175 P*(B, R*íB)>«A* s GOTO 110 

176 Ry.CB)=RY-t:B>~l 

1S0 PRINT"HAY YA 10 APOSTANTES PARA EL CABALLO" ?B 
190 PRINT"NO PUEDE USTED APOSTAR POR ESE CABALLO" 

200 P=P-Í : GOTO 110 
213 CLS 

220 REM **** TRAZA DE LA PISTA **** 

230 FOR X=0 TO 127 

250 FOR Y=17 TO 42 STEP 5 

260 SETIX >0+Y) 

270 NEXT Y 

2S0 NEXT X 

290 REM **** COLOCA LOS CABALLOS EN LA SALIDA **** 

300 FOR Y=20 TO 40 STEP 5 

310 SETÍ0,0+Y) 

320 NEXT Y 

330 PRINT3 950 ,"PULSAR LA ’ 5’ PARA DAR LA SALIDA" 

340 A$=INKEY$ : IF AS<>"S" THEN 340 
350 REM *■■***■ MUEVE LOS CABALLOS **** 

360 FOR J=1 TO 127 
370. 1=0 

3S0 FOR Y=17 TD 37 STEP 5 

330 1=1+1 

400 RESET CX a). Y) 

410 XÍI).=X <I)+INT CRND í3)) 

420 SETCXCI),Y) 

430 IF XCI))=127 THEN Y=37 : J=127 

440 NEXT Y 

450 NEXT J 

450 REM ***+ CONOCIMIENTO DEL GANADOR **** 

470 PRINT"EL CABALLO GANADOR ES EL"íl 
480 D=R-/.CI) 

430 IF D=0 THEN V=A*P : GOTO 600 

500 FOR H=1 TO D 

510 PRINT P$(IiH)*" "; 

520 NEXT H 

530 PRINT"GANADÜR" j ' IF D> 1 THEN PRINT‘*ES" í 
540 PRINT" DEL GRAN PREMIO DE PENCHES" 

550 N=C ÍA+P)+2)/10 

580 R=CÍA*P)-N)/D : Z=INTCR> : V=ÍR~Z)*D 
570 PRINT"PREMIO DE"? Z; 'POR ACERTANTE" 

580 PRINT“CRNTIDAD RETENIDA POR LA QSGANIZACION";Ní"PTS" 
500 IF VOS THEN PRINT"GRACIRS POR LAS" *Ví " PTS" 

510 PRINT"HASTA EL PROXIMO CONCURSO" 

530 INPUT "QUIERE JUGAR OTRA PARTIDA CSI D NO) 1 '* A* 

64® IF ASÍ) "SI" AND ASO "NO" THEN 530 
550 IF A$="SI" THEN 50 
560 END 


54 


£7 Ordenador PersoraJ, núm, 28 





DUELO 

En esta ocasión Ud, se enfren¬ 
ta en duelo con su ZX81. En la 
pantalla aparecerán dos números 
elegidos al azar. El de la izquierda 
corresponde al ZX81, el de la 
derecha es el suyo. 

Si su número es mayor o igual 
al del ZX81, ataque con J '5", 

Si su número es menor, de¬ 
fiéndase con "8". Pero todavía 
hay otra posibilidad: si aparece la 
palabra "FUEGO", dispare sin 
pensarlo con "O". 

No sólo debe no equivocarse 
en su decisión. Debe además ser 
más rápido que el ZX81... lo que 
no es fácil! 

2 LET L "3 ,J 

3 t_£iT 0=C0DE ?“ 

3 LET O=C0DL 

7 uer u —o yD 

10 LET Z = D-D 
1S LET = 2 

a® PRINT TfiB T>; ZiTFlS D+D_¿Li,AT 
QjD, D+D; LI BH' 

25 LET E=2 

27 LET S = U t 

3© IF OR U>=DtD TMEN ST 

OP 

35 IF RNDí.2 THEN LET E=U 
3 7 LET fl S-" 

4.0 LET A$ÍU>=&TRÍ IMT 
4.5 LET Rt (H) =STR* INT 
50 LET T = XMT íRHDtOAL ^6">+U 
55 FOR G=3-T TO O 
50 PRINT RT Q,G; '‘M m '¿ 

SS LET S-D+D 
7® NEXT G 

75 IF THEN LET Rí = ( ' 

S0 PRINT fi$ 

S5 FOR R = U TO T+H 
20 LET .JS^ INKEY 

95 IF THEN GOTO CODE "ES 

100 NEXT R 

130 LET Z=Z+UAL "5" 

135 PRINT RT O i CODE - 

150 PRINT RT Q J ,Sj"XX hl 

152 FOR I=U TO 

153 NEXT I 

154 CLS 

155 GOTO D+D 

150 IF tü|="S" AND {US (=fi$<H> 

3 OR <JS = "e" AND ÍU) >R^ (MJ ) OR 
AND E=U) THEN GOTO COD£ 

175 GOTO CCDE & 

180 LET UrU + t/fiL J: S- 

195 LET 5=0 

200 GOTO CODE "V 


ERN&íD) 

ERND*D) 


SALTO DE LA RANA 

Ud. debe invertir la posición de 
las piezas, pasando todas las "X" 
al lado derecho y todas las "O" al 
lado izquierdo, en ef menor núme¬ 
ro de jugadas posible. 

Introduzca su jugada como un 
número de dos dígitos (origen/ 
destino) y N/L El ZX81 le mostra¬ 
rá inmediatamente la nueva si¬ 
tuación, informándole además de 
su última jugada y el total de 
movimientos realizados. 




=M.”0 TE Í.P TRNP 
L‘=R flNTONIG HENENDL Z 

2 LET M =3 
i lET A=0 
L-^T 5 

10 v-w'J+:~ lTT ¡o¡ j i 1 ^ 

E'0 ll“ aXa/ COCO' 

30 LET = ” 1234-5&732'- 
í® Pft INT RT 3,0= " HOUE r ' , H ,■ , j ,í 
5;AT ¡MS.üj.qr' 12 10; 8$ 

45 IF - ^ ~ ' ^#fSFKlÍ7 ,>L '''/ ULI^^^ H p P^’ L - 

50 LET’h = INT vC.- j I0Í 
7 0 LET B=C■A* 10 


IF H=0 
jp P-BS í ñ- 
■I GOTO 50 
90 híísí sf 

L 0 J 3 LET Pí rQ'i n' 

110 LET 


CUADRADO MAGICO 3X3 

He aquí la versión compu¬ 
terizada de un antiguo pasatiem¬ 
po matemático de origen chino... 

Ud. tiene un cuadrado de 3X3. 
En la posición de partida, contiene 
los números del 1 al 9 en orden 
ascendente Ud. debe cambiar los 
números de posición en el interior 
del cuadrado para conseguir que 
la suma de los números de cada 
columna sea la misma..., e igual a 
la suma de cada línea,.., e igual a 
la suma de cada diagonal. 

No, no es imposible, pero entre 
las miles de combinaciones posi¬ 
bles, sólo existe |una correcta! 

Introduzca el primer número 
que quiere cambiar de posición, y 
N/L. 

El 2- número a cambiar, y N/L, 
El ZX81 le mostrará la nueva 
situación del cuadrado, así como 
la suma de las columnas, diago¬ 
nales y líneas para hacerle algo 


más fácil su trabajo... Recuerde 
que para que los cálculos sean 
más rápidos, puede poner el 
ordenador en modo FAST antes 
de empezar el juego. 


CUADRADO MAGICO 3X3 

2 LET 0=PI/PI 
4- LET P = URL "3” 

5 LET Q=UfíL “5“ 

6 LET RfeUBL "7" 

© LET S=UAL r, 3” 

10 DIM AtSJ 
S0 FOR 1=0 TO 5 
3® LET PM 13 «I 
40 NEXT I 

150 LET EDI+RÍP+OJ+R(Rí 

15(? LET B=fi EO+G3 +A ÉGT +A tft+ü) 

170 LET C=fl(Pi +fltPXP> +AÍS) 

180 LET +RCG3) +FUR) 

100 LET E=ñ (Oí +R t04Üi +R (P) 

200 LET F=fiÍP+OJ+ A(©>+ AÍP+PJ 
210 LET +R1Q+PJ 

220 LET H=A(O)+REO>+RfSJ 
£ 2 3 CLS 

230 PRINT RT O., PjH;*’ "íg;" 

' M ;C,[>,flT 0,R.;RCOL " A íCn-D) ; ' 
A íR) , E ; AT R . R; fi íP+03 j " 

J " " i R fQ+O) jF; RT 5,RJ R tR3 ; " Ll , fl t 

R +03 : ” " i R CS J J G 

250 INPUT J 
260 INPUT K 
2^0 FOR 1=0 TO 3 
30® IF AlXJ < >U THEN NEXT I 
320 FOR L=Q TO 5 
330 IF R£L><>K THEN NEXT L 
340 LET fiíU =J 
350 LET PtlJ-K 
360 GOTO CODE L RI M 


Los dos programas de 1 K. para el 
SINCLAIR ZX81 publicados en ef 76 
de Junio-f 983 son de ANTONIO ME- 
NENDEZ, junto con estos forman un 


grupo de interés para ef estudio de 
cómo utilizar fas características del 
BASIC Sinclair, para aprovechar el má¬ 
ximo de la memoria. 


por ANTONIO MENENDEZ 
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EL ORDENADOR MAS AVANZADO DEL MUNDO 




MKII 





MICROSOFT BASIC * FORTRAN 80 * Microsoft Logo * COLCCO cartuchos 
CP/M * Cobol 80 ★ MACROENSAMBLADOR Z80 * Ensamblador CP/M 



MSX. Es el sistema escogido por 16 fabricantes japoneses de ordenadores (SONY. PANASONIC, PIONEfi. SANYO, 
SPECTRAVIDEO, ele ] siendo compatibles todos los programas creados por cada uno de los labrlcarttes. 


CARACTERISTICAS GENERALES 

SPECTRAVIDEO 

328 

SPECTRAVIDEO 

318 

APPLE II e 

CÜMMODÜRE 

64 

ATARI 

600 xl 

BBC 

MODELO B 

DRAGON 

32 

OfilC 

ATMQS 

PROCESADOR. 

Z80 A 

zao a 

6502 

6510 

8502 

6502 

6609 E 

8502 

RELOJ EN MHz. 

memdhia standard en ham. 

AMPLIADLE HASTA... 

4 MHz 

4 MHz 

1 MHz 

1 MHz 

1.0 MHj 

2 MHz 

1 MH: 

IMHí 

BOX 

32 X 

64 K 

64 K 

16 X 

32 K 

32 K 

48 X 

144 K 

144 K 

- 


64 K 

- 

64 K 

64 X 

MEMORIA STANDARD EN ROM ... 

32 X 

32 K 

16 K 

20 K 

24 K 

16 K 

16 K 

16 K 

AMPUABLE HASTA . 

96 K 

96 K 

- 

- 

- 

- 

j 

- 

MICROSOFT BASIC EXTENDIDO. 

SI 

SI 

— 

- 

- 

NO 

Si 

SI ¡ 

NUMERO DE TECLAS ... 

87 

51 

62 

66 

57 

73 

53 

57 

TECLADO CON GRAFICOS PREDEFINIOOS 

SI 

Sí 

- 

SI 

SI 

SI 

NO 

NO 

TECLAS DE FUNCION PROGRAMARLES. 

10 

10 

- 

8 

4 

10 

NO 

NO 

MANDO JOYSTICK INCORPORADO. 

NO 

SI 

- 

NO 

NO 

NO 

NO 

NO 

COLORES . 

16 

16 

16 

IB 

16 

16 

9 

8 

SPR1TES... 

32 

32 

- 

a 

8 

- 

? 

- 

RESOLUCION 1 Puntos de pantalla. 

256*192 

256*192 

2B0*192 

320*200 

320* 192 

256*640 

256*192 

240 * 200 

TEXTO EN PANTALLA. 

40* 24 

40*24 

40*24 

40*25 

40*24 

40*32 

32*16 

40*28 

CANALES DE SONIDO. 

3 

3 

1 

3 

4 

1 

3 

3 

OCTAVAS POR CANAL. 

8 

B 

4 

9 

7 

3 

5 

8 

A D.S.ft, ENVOLVENTE... 

SI 

SI 

NO 

Si 

NO 

SI 

NO 

SI 

CAPACIDAD UNIDAD DE DISCO .. 

256 K 

256 X 

140 X 

170 X 

127 K 

100 X 

T 

? 

CENTRONICS. 

SI 1 opcional) 

SI (opcional) 

Si (opcsooali 

- 

SI (opcional) 

Si [ppcionál 

SI 

SI 

RS232 .... 

SI 1 opcional) 

SI (opcional! 

SI [opcicna)l 

- 

Si (opcion aTi 

SI iDpcionatl 

- 

- 

80 COLUMNAS. 

SI [opcional) 

SI (opcional) 

SI ÍQpcionail 

SI (opcional) 

SI (opcional) 

- 

- 

- 

PRECIO P.V.P. 

76.000 

49.900 

166.618 

79.900 ¡ 

58.500 

140.000 

67.800 

59.500 i 
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— MSX y MICROSOFT son marcas registradas 
por MICROSOFT CORPORATION. 

— CPM es una marca registrada por DIGITAL 
RESEARCH INC. 

— COL ECO VISION es una marca registrada por 
COLECO INDUSTRIES INC. 



DISTRIBUIDOR OFICIAL DE SPECTRAVIDEO 
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PASEO DE LA CASTELLANA, 179 - MADRID-16 
TELEFONO (91) 279 31 05 


DELEGACION EN CATALUÑA ACE. S.A 
Tarragona, 100 - Barcelona-15. 

Teléfono (93) 325 10 58 


YA DISPONIBLE EN 


... Y EN TODAS LAS 
TIENDAS ESPECIALIZADAS 
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PROGRAMAS 




K 


fi¡ BU 1¡ B1B 

ais sí üí| 




220 C — SECTOR ALPHA 

232 C — FRANTIC FREDDY 
237 C - SUPER CROSS PIRE 

291 C — FLIPPER SLIPPER 

233 T — ARMOURED ASSAULT 

234 T — SPECTRA 

219 T — NEW YORK BOMBBUTZ 
302 T — 3 0 TlC-TAC-TOE 

309 T — SPECTRA BREAK 

310 T — HORSE RACE 

211 T — OLD MAC EL GRANJERO 
216 T — TETRA HORROR 

241 T - TELEBUNNY 

242 T — TURBOAT 

243 T—SASA EL ROBOT 

292 T — NINJA EL GUERRERO 

293 T — KUNG FU MASTER 

245 T — LA PULGA (BUGABOO) i 

246 T — FRED 

251 T — DONKEY KONG.COLECO 

252 T — ZAXXON, COLECO 

253 T — GORF. COLECO 

254 T - CARNIVAL. COLECO 

255 T - PITUFO. COLECO 

256 T — TURBO. COLECO 

261 T — OLIMPIO GAMES 

262 T — ANTARTIC 

ADVENTURE £¡S3 ! 

263 T ~ COMIC BAKERY 

264 T — MONKEY ACADEMY 

265 T — CIRCOS CHARLIE 

266 T - TIME PILOT _ . 

267 T- ATHLETIC LAND 

268 T — SUPERCOBRA 


209 

213 

222 

304 

303 

235 

221 


331 T — 

332 T — 

333 T — 

334 T — 

335 T — 


336 T — 


WORD MASTER 
STAR NUMBER 
FIRST STEPS 
ACUTYPE 
NUMBER GAME 
INTRODUC. AL BASIC 
SWING MAN 
(AHORCADO) 
CIUDADES DEL 
MUNDO 
APRENDIENDO 
INGLES 
TUTOR 

SPECTRA ADIVINO 
EL CUERPO 
HUMANO i 
EL LIBRO DE LOS 
RECORDS i 


236 C ■ 
294 C ■ 

266 T- 

520 D - 

521 D ■ 

522 D ■ 

523 D ■ 

524 D 

525 D 

526 D 


T — Cassette 
C = Cartucho 
D = Diskette (CP/M) 


Todos los programas creados para los sistemas : 

COLECO VISION** 

CP/M*** 2.2 y 3.0 

Son compatibles con los ordenadores ''SKrtmimxnx 

* Con adaptador SV 606 MSX. 

* * Con adaptador SV 603 COLECO 
*** Formato XEROX 820 ll> 5'A 

PERIFERICOS 





SVI 605 A, EXPANDER 
CON DISCOS 


PERIFERICOS 


SVI 105 TABLETA GRAFICA 



■ MUSIC MENTOR 

■ JUST WRITE (PROC. 
TEXTOS) 

SPRITE GENERATOR 

■ FORTRAN 80 

■ COBOL 80 

■ MACRO 

ENSAMBLADOR Z80 

- ENSAMBLADOR CP/M 
• TURBO PASCAL 

■ M. BASIC 

- COMPILADOR BASIC 


PROFESIONALES 

228 T — SPECTRA DIARY 

229 T— SPECTRA HOME 

ECONOMIST 

269 T — ADDRESS BOOK 
275 T— SPECTRA FILE 

GABINET (FICHEROS) 
227 T — SPECTRA CHECK 
BOOK 

620 D —d. BASE II 

622 D — REPORT STAR 

623 D— SPELLSTAR 

624 D— SUPERCALC 

626 D — WORDSTAR 

627 D — DATASTAR 

628 D — CALCSTAR 
633 D — MAIL MERGER 

629 D — SUPERCALC 2 

637 D— WORDSTAR & 

MALLMERGE 

638 D — MULTIPLAN 

639 D— CONTABILIDAD 

GENERAL (PLAN 
CONTABLE) 

640 D— BASE DE DATOS 

641 D— CONTROL STOKS 

642 D — PROCESADOR TEXTOS. 

643 D— MAILING Y ETIQUETAS 

644 D — ARQUITECTOS. 

PRESUPUESTOS 

645 D — ARQUITECTOS. 

ESTRUCTURAS 

646 D— VIDEOCLUBS 



SVI 101 QUICKSHOT I y 
SVI 102 QUICKSHOT II 


DATACASSETTE 
16K RAM 

INTERFACE RS 232 
CARTUCHO 80 
COLUMNAS 
SVI 105. TABLETA GRAFICA 


• SVI 904. 
•SVI 803. 

• SVI 805. 

• SVI 806. 


•SVI 602. MINIEXPANDER 
•SVI 807. 64K RAM 
•SVI 603. ADAPTADOR COLECO 
•SVI. 909. IMPRESORA 80 

COLUMNAS 130 c.p.S. 
•SVI 606. ADAPTADOR MSX 


LIBROS 


GUIA de referencia Basic para el pro¬ 
gramador , 

SPECTRAVÍDEO CQMPUTÍNG (inglés). 
M. BASIC. Manual de programación. 


SISTEMA OPERATIVO CP/M, Guia del 
usuario. 

SPECTRAVIDEO. Programación Avanzada i 
INTRODUCCiON A WORDSTAR. 


*SVI 605 ó 605. SUPEREXPANDER 
CON DISCOS (256K ó 320 K 
FORMATEADOS) 

•SVI 802. INTERFACE CENTRONICS 
•SV1101. QUICKSHOT I y SVI 102. 
QUICKSHOT II. MANDO 
PARA JUEGOS. 

Para mas Información dirijánse a: 
tndesnamp SPECTRAVIDEO 
P.° Castellana, 179 Telf, 279 31 05 
28016 MADRID 



















VILLARROEL, 60 

TELS (9 3i 3 2319 33 
EL5 ’ 931 254 6813 

barcelona-ii 


TOLEDO. 63 
TEL. S91Í 265 40 69 
M A D R t D - 5 


unPRESOfifi cp-ao 


* 0B COLLSnttRS 

* 00 CPffRCTERES POR 5E0ÜM50 

* TRRcoraa / Fraccm 

* EWTRROR PfiRHLELD CEHTFOttfcCS 

* PPODWiL R5E£C 


i GF 5 =FiCF 

* CARTUCHO TUttTR 

* mmPFITtBLE EP5DGI 


^Joppkj computar 


opple compuTeR inc. 

DISTRIBUIDORES OFICIOLES. 
RPPLE ll/E 
OPPLE III 

opple mocimosH 

OPPLE LISO 2 
APPLE ll/C 


Software Apple 
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No cabe duda de que 
entre los usos corrientes 
de un ordenador 
persona!, el de los 
juegos es muy 
importante, no sólo 
desde un punto de vista 
recreativo sino también 
desde un punto de vista 
creativo, aI ser éstos una 
fuente interminable de 
combinaciones, y por 
tanto, de estrategias. 

Por desgracia, los 
juegos que dan pie a 
algor i tmos in te resan tes 
desde un punto de vista 
técnico, no son 
abordables para el 
posesor, ya de un 
ordenador de 
posibilidades modestas, 
ya de una calculadora 
potente, como es el caso 
del SHA RP PC-1211 
(TRS 80 pocket), que se 
ven olvidados por las 
revistas especializadas 
como EL 
ORDENADOR 
PERSONAL: A ellos 
me dirijo 
proponiéndoles un 
programa-juego: el 
JUEGO DEL RADAR. 



El juego en sí. 

En resumen, el juego consiste 
en lo siguiente: 

El jugador dialoga con el orde¬ 
nador que hace el papel, en el 
juego, de aparato de radar mer¬ 
mado en sus facultades (la panta¬ 
lla del mismo estaría organizada 
como se muestra en la figura), y 
la misión del jugador es descubrir 
la posición de un avión que vuela 
en la zona barrida por dicho ra¬ 
dar. El avión puede moverse co¬ 
mo se muestra en la figura: de 
forma radial (I) o circular (2); en 
ningún caso se moverá con ambas 
componentes a la vez, ni más de 
una casilla en cada jugada. 

Para descubrir la posición de 
este avión, y por ello decía que 
el radar estaba mermado en sus 
facultades, el jugador deberá pro¬ 
poner en cada jugada un radio 
(o distancia al punto A), y un 
sector angular que él "ree corres¬ 
ponden a los del avión y cifrados 
como se índica en la igura 1 (la 


coordenada del sector angular se 
leerá como si de una esfera de re¬ 
loj se tratase). El ordenador res¬ 
ponderá si el sector elegido es co¬ 
rrecto o no, y si el radio es co¬ 
rrecto, mayor o menor, que el 
del avión. 

Por otra parte, cada 3 jugadas 
el ordenador facilitará el color 
del sector en que se encuentra el 
avión, también cifrado, según la 
figura, La primera vez que será 
facilitado este dato será al princi¬ 
pio del juego. Se dará por termi¬ 
nado el juego cuando el jugador 
localice el avión, en cuyo caso se 
considerará que ha ganado, o al 
cabo de 20 jugadas, tras las cua¬ 
les se considera que ha perdido la 
partida. Es muy importante com¬ 
prender que la posición del 
avión no es fija, y que en ello ra¬ 
dica el interés del juego, en el 
que intervienen tanto la suerte 
como la habilidad del jugador, 
para determinar las posibles posi¬ 
ciones del avión gracias a las juga¬ 
das anteriores. 
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1D:"G"E=ABS <10 
0Ü*LGG <137/ 
E>:> ¡ E=E*TNT 
E:K-INT <10* 
E> 

20:RETURN 
60:"A":OLEAR : 
IHPUT "HUriER 
O INICIAL?''i 
E'¡ GOSUB 10: F 5 
■<X/-6“INT Oí 
/6) ) 

70:GOSUB 10: IF 
<P=0)*0<=0> 
GOTO 7G 

75:IF <F-1>*<X> 
2>LET X=X-3* 
<IHT <X/3)> 
80:N=10*P+ABS X 
90:GOSUB 10:M=X 
1001 PAUSE 11 S R 
105:IF <R/3<>INT 
<R-3> )THEN í 
50 

11ü:IF <H=12>+<N 
>*1>*<N<5> 
PAUSE "SECTG 
R ROJO" 


12ü: Ir 

<6>PAUSE "SE 
CTOR AZUL" 
130:IF <N>“6)+<Ñ 
<9?PAUSE: "SE! 
CTOR VERDE” 
140: IF <N>=9;'*<N 
<11>PAUSE "S 
ECTOR AMAR II. 
LO" 

150:INPU7 "SECTO 
R?"! v’s IHPUT 
"RADIO?"SZ 
160:IF V-MPhUSE 
"SECTOR "¡¡Vi 
" CORRECTO": 
GOTO ISO 

170:PAUSE "SECTO 
R "iVÍ" INCO 
RRECTO" 

ISO:IF Z=MPhüSE 
"RADIO "i23" 
CORRECTO"s 
GOTO 200 
185: IF 2X1PAUSE 
"RADIO "3 Z5" 
DEMASIADO GR 
ANDE":GOTO 2 
00 


í86:PAUSE "RADIO 
"3 Z 3“INFERI 
OR Ai. REAL" 
200: i|- < +<2~ 

MIPAUSE "CAN 
ASTE!"¡rEND 

210:Ir R-20PAUSE 

"PERDISTE. 

£ND 

220: R-R-t-1 

230:GOSUB lü:p=< 
2/2=INI QAs2 
>):GOTO 240* 
30 *P 

240:GOSUB 10:N=N 
+l“£-«<X/'2= 
IHT <X/2>> 
250:IF MT12LET H 
-H--12 

260: IF MC1LET N-- 
H+12 

265¡GOTO 100 
270:GOSUB 10:M=M 
+1-2*<Sí/2= 
INT *ÍX/2» 
280: IF ri>9LET M== 
M-l 

290: IF fííüLET M= 
O:N=N*6 

300:N=N“12* < H >12 
> 

310:GOTO 100 



AMARILLO 


ROJO 


VERDE 


La pantalla del radar. 


AZUL 


La coordenada radial en este caso 
sería 7, y la coordenada de sector 
sería I. 


Figura 1. 


El programa y su utilización. 

Tanto para generar la posición 
inicial del avión como sus movi¬ 
mientos a lo largo de la partida, 
he utilizado una subrutina apare¬ 
cida en la revista COMPUTING 
TODAY, en el volumen de Junio 
1982, en el artículo "PC-1211 
PROGRAMMING", y por ello 
hay que introducir un número 
positivo al principio de la parti¬ 
da. 

Por Lo importante que resulta 
conocer las jugadas anteriores, si 
las hubiese, para descubrir las po¬ 
sibles posiciones del avión, puede 
'ser interesante ya apuntar éstas 
a lo largo de la partida, ya utili¬ 
zar la impresora CE 122, para lo 
cual basta reemplazar los coman¬ 
dos PAUSE por PRINT: se facili¬ 
ta la lectura en el primer caso, y 
los datos aparecen en la banda de 
papel en la segunda. 

Para iniciar (poner en marcha) 
el programa, pulsarSHIFT Aen 
mode DEF. 


Pablo Cuesta. 
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APROVECHANDO LA TECNOLOGIA 

DE CALIFORNIA 

SOFTWARE TOTALMENTE INTEGRADO 

OPEN ACCESS 

El nuevo Paquete de Software integrado para Aplicaciones 
profesionales en Microordenadores* 

Con el programa Gpen Access, SP1 ofrece un paquete que representa 
una nueva filosofía de Software de alta calidad. El concepto; 

Integración total de datos con guía óptima para el operador. Las 
posibilidades de aplicación; Como Banco de Datos, como programa 
de cálculos y proceso de textos, para la preparación y elaboración de 
datos de forma gráfica, como planificador de tiempo y como base de 
comunicación para otros sistemas de ordenadores, 

Open Access ofrece al usuario un alto grado de funcionalidad junto 
con un diálogo cómodo con el usuario. Esto es señal de la fuerza de 
un sistema de programación altamente desarrollado y poderoso, ésto 
facilita el trabajo, ésto le permite concentrarse en resolver ios 
problemas reales, 

Open Access hace trabajar a su ordenador como Vd. quiere no al 
revés. 

Naturalmente en Español. 

Para esto necesita Open Access: 

Decidir, organizar, planificar, administrar, coordinar, comunicar. 

Esto ofrece Open Access: 

Tratamiento de Ficheros, Cálculo, Gráficos, Proceso de Textos, 

Planificación del Tiempo, Comunicación. 




SPI FORTALECE SU MICROORDENADOR 

SPI SOFTWARE PRODUCTS INTERNATIONAL- REPRESENTACION EN ESPAÑA 


C/ Profesor Waksman, 44°, izqda. - MADRID -16 - TELFS, 458 04 00/07 50 












































HP~41cv 


Producto de matrices 


Si se ha visto en la 
necesidad de efec¬ 
tuar muchos pro¬ 
ductos matrieiales, 
se habrá dado cuen¬ 
ta de lo pesado de la 
tarea. No se preocu¬ 
pe, pues a partir de 
ahora su HP-41 lo 
hará por usted. 

Como todos sabemos, el procedi¬ 
miento para multiplicar matrices es el 
mostrado en el siguiente ejemplo: 



Para que dos matrices puedan ser 
multiplicadas, el número de columnas 
de la primera (que llamaremos A) ha 
de ser igual al número de filas de la se¬ 
gunda (B). El producto no es conmuta¬ 
tivo. El resultado será una matriz {C) 
de un número de filas igual aE de la pri¬ 
mera y un número de columnas igual 
al de la segunda. 

El programa listado nos permite 
realizar el producto de dos matrices A 
y B con una HP-41. 

En el listado las E que aparecen 
pueden ser sustituidas por 1, y la E3 
por 1E3. Han sido utilizados los expo- 
nentes cortos por ser más rápido que 
utilizar ¡os números correspondientes. 


El programa ocupa 234 bytes y uti- 
za 11 registros de datos, con lo que en 
una CV quedan libres 275 registros 
para el almacenamiento de las matrices. 
Esto permite por ejemplo el producto 
de una matriz de 9x10 por otra de 
10x9. 

El SIZE necesario es NFAxNCB + 
NFAxNCA + NFBxNCB + 11 - dim C 
-F dim A 4- dim B 4* 1J 

Los registros 00—10 son usados por 
el programa para varios propósitos, 


▼ 

AE comienzo de la rutina de cálculo (LBL 05),su contenido es el siguiente: 

01 =1 +NFA/1000 

05 y 07 indican el registro del primer elemento 

02 y 03=1 + NCA/1000 

de la matriz A 

04 y 09=1 + NCB/1000 

03 v 08 lo mismo para la B 


06 y 10 para el primero de la C 


101-126 Entrada de los elementos 
de las dos matrices A y B 
a multiplicar 

127-131 Rutina general para inicia- 
lizar el registro índice de 
los bucles. 


Ejecución 

Ejecutar PRDM. El programa nos 
pide NFA f NCA r introducir el núme¬ 
ro de filas de A, pulsar ENTER t, nú¬ 



Líneas 01-19 

Entrada del número de fi¬ 
las y de colummas de cada 
una de Eas dos matrices y 
prueba de que NCA = 
NFB 

20—48 

Calcula los índices de ios 
bucles de entrada de ios 
elementos de las dos ma¬ 
trices y del registro conte¬ 
niendo el primer elemen¬ 
to de cada una de ellas. 

49-75 

Rutina de cálculo del pro¬ 
ducto. 

76-99 

Salida de la matriz produc¬ 
to. 


mero de columnas de A y R/S lo mis¬ 
mo para la matriz B, A continuación 
nos pedirá A1,1?, primer elemento de 
la matriz A, (el primer número Indica 
fila y el segundo columna), lo introdu¬ 
cimos y R/S # nos pedirá Al,2?... suce¬ 
sivamente. La forma de introducción 
es por filas. Lo mismo para la segunda 
matriz, B, sólo que en este caso la in¬ 
troducción se hará por columnas. Una 
vez introducido el último elemento, el 
producto será realizado y visualizado 
por filas en la forma C i, j = . Para ver 
cada uno de los elementos, pulsar R/S 
hasta el mensaje de FIN. Para efectuar 
un nuevo producto pulsar R/S 

Modificaciones 


Si queremos hacer productos en ca¬ 
dena habrá que modificar el programa 
quitando el CLRG y haciendo una ru¬ 
tina que pase la matriz producto a la 
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0 1 + 

LBL 

"PRB 

44 

STO 

©1 

87 FIX 4 

M “ 



45 

RCL 

04 

88 fiRCL INB 

@2 

CF 2 

n 

4 6 

STO 

89 

i© 

03+LBL 

00 

47 

RCL 

06 

83 PROMPT 

84 

F I X 

© 

4 S 

STO 

10 

30 E 

05 

CLRG 

49 + LBL 

05 

31 ST+ 1S 

86 

"HFfltNCR 

58 

RCL 

©7 

32 ISG 04 




51 

STO 

06 

93 GTO 03 

07 

F'RONFT 

52 

♦ LBL 

06 

94 RCL 69 

es 

STO 

02 

53 

RCL 

IND 

95 STO 04 

09 

RBN 


00 



96 ISG ©I 

10 

STO 

G 1 

54 

RCL 

IHB 

97 GTO 03 

1 1 

NFBTNCB 




3© "FIN" 




05 



99 PROMPT 

12 

FROMFT 

55 

* 


100 GTO 0S 

13 

STO 

84 

56 

ST + 

I ND 

101+LBL 01 

14 

RBN 


06 



102 "B" 

1 5 

STO 

03 

57 

E 


103 F3? ©0 

1 6 

"NO 

MULT 

58 

ST + 

65 

104 GTO @4 

P. " 



59 

ST + 

06 

105 "fi" 

1 7 

RCL 

02 

60 

t cr 

i La 

03 

106 ORCL 01 

i O 

J. u 

X = Y7 


61 

GTO 

06 

107 "P*“ 

19 

PRÜMFT 

62 

RCL 

02 

108 fiRCL 02 

2 0 

1 1 


63 

STO 

03 

109+LEL @2 

2 1 

STO 

00 

64 

E 


110 *h = ?” 

O 9 

STO 

06 

6*5 

ST + 

06 

111 PROMPT 

23 

STO 

07 

66 

ISG 

04 

112 STO IHB 

24 

RCL 

0 1 

6 3 

GTO 

S5 

@6 

¿i 5 

KEQ 

03 

68 

RCL 

09 

1 1 3 E 

2 6 

STO 

01 

69 

STO 

04 

114 ST+ 06 

27 

STO 

09 

70 

RCL 

00 

115 ISG 62 

28 

RCL 

82 

7 1 

STO 

07 

116 GTO 01 

29 

XEQ 

09 

72 

RCL 

08 

117 RCL 83 

30 

STO 

62 

73 

STO 

05 

113 STO 02 

3 1 

STO 

03 

74 

ISG 

01 

119 ISG ©I 

32 

XEQ 

0 I 

75 

GTO 

06 

120 GTO 01 

33 

RCL 

@6 

76 

RCL 

81 

121 RTN 

34 

STO 

85 

“7 '7 

V 1 

FRC 


122+LBL 04 

35 

STO 

88 

78 

ISG 

X 

123 fiRCL 82 

36 

RCL 

04 

79 

STO 

01 

124 ”h ^ " 

37 

XEQ 

09 

80+LEL 

08 

125 fiRCL 01 

33 

STO 

64 

31 

F IX 

0 

126 GTO 02 

39 

STO 

01 

82 

■■ C “ 


127 + 1 BL 09 

40 

SF 00 

83 

ÑRCL 

81 

128 E3 

4 1 

XEQ 

0 1 

84 

£_ it 


129 / 

42 

CF 0S 

85 

fiRCL 

©4 

130 ISG X 

43 

RCL 

S9 

86 

ll j_ * n 


131 ENE 


matriz A, que borre fas B y C y ríos 
pida !a nueva B. 

Si por el contrario io que queremos 
es poder realizar productos con dimen¬ 
siones mayores, podría pensarse en lo 
siguiente; Introducir la matriz B, a 
continuación la primera fila de la ma¬ 


triz A y obtener así la primera fila de 
la matriz producto. A continuación, la 
segunda fila, con lo que sería calculada 
la segunda fila del producto, almace¬ 
nándola en los mismos registros que la 
primera ya calculada, y así sucesiva¬ 
mente* Esto haría que el número de re¬ 



m 

¡ - 
E : 

KFPtHCP. 

9 

ESTER* 


T 

Rü!; 

HFBtNCB 


ENTERA 


7 

RÜK 

ftí,l=? 

4 

i 

m 

Rl,2=? 

t 

i 

m 

fií..3=? 

L_ 

m 

R2,í=? 


pm 

fl2,2=? 

2 



0 

m 

fi2,3=? 

f 

RUK 

B1 .. 1=? 

i 

RUH 

62,1=? 


RUN 

B3,l=? 

4 

RUK 

Bl,2=? 

4 

i 


62,2=? 

6 

Rüfí 

63,2=? 

- 

m 

61,3=? 

f 

“i 

RUI) 

B2,3=? 

7 

0 

m 

63,3=? 


RÜK 

• 61,1=5.6808 


RUK 

€1,2=15.8066 


RUK 

01,3=6.9006 



02,1=0.0866 


PÍCPl 



RUN ; 

€2,2=6.0006 


RUK I 

€2,3=3.0886 


RJjN 

FIN 




gistros de datos necesarios sería: NFBx 
NCB + NCA + NCB 4- el número de 
registros utilizados por el programa. 

Sí bien estas dos opciones se dejan 
como labor al lector que necesité de 
ellas* 

J*A. Deza 
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Fig. 1. 


Si está perdido 
sitúese con un mapa 
y una calculadora 
de bolsillo 



Hay que situarse. 


Un pequeño programa para TI 58-59 que le per¬ 
mite situarse en este mundo. O cómo situarse 
con rapidez en un punto a partir de un mapa de 
carreteras ¿Se acabó el sextante? Juzguen uste¬ 
des. 


Cuando la tierra era plana, la 
situación de un punto determina¬ 
do era cosa fácil. Conociendo el 
centro del mundo, bastaba deter¬ 
minar la posición de ese punto 
con respecto al centro. 

Pero los tiempos han cambia¬ 
do. Desde que los australianos vi¬ 
ven con la cabeza hacia abajo, no 
hay duda sobre la esfericidad de 
la tierra. A partir de este hecho, 
la localización de un punto nece¬ 
sita cierto aprendizaje. 

Consideremos por tanto, la 
Tierra como un esfera perfecta. 
(En realidad está ligeramente 
aplastada por los polos}. Si se 
unen los dos polos por un semi¬ 
círculo, se obtiene un meridiano. 

El meridiano que pasa por 
Greenwich, está considerado, 
después de la Convención Inter¬ 
nacional de 1.914, como meridia¬ 
no origen. Con relación a éste, 
dado un punto A se determina la 
posición Este y Oeste, llamada 
longitud y representada por X. 
(fig. 1). 

La longitud se expresa en gra¬ 
dos, minutos y segundos. El perí¬ 
metro de la Tierra (según un cír¬ 
culo perpendicular al eje que 


atraviesa los polos), representa 
360 grados. 

1 grado = 60 minutos. 

1 minuto = 60 segundos. 

Por ejemplo, la longitud de 
Santiago de Compostela es 5 o 
O'IQ”. Es decir, con un desplaza¬ 
miento de 5 o hacia el Oeste, a 
partir del meridiano de Green¬ 
wich, se alcanza el meridiano que 
pasa por Santiago de Composte¬ 
la. 

La posición Norte-Sur del pun¬ 
to A sobre su meridiano, está da¬ 
da por la latitud. Es la medida 
del arco que una A con la inter¬ 
sección del meridiano de A con 
el Ecuador. La latitud se repre¬ 
senta por S. (fig. 1}. 

Por ejemplo, la latitud de San¬ 
tiago es 42° 50' 04" Norte. Esto 
significa que Santiago se encuen¬ 
tra a 42° 50' 04" al Norte del 

Ecuador. 

Estas dos coordenadas bastan 
para determinar, sin ambigüedad, 
cualquier punto de! globo. 

Son utilizadas por topógrafos, 
geógrafos y navegantes. 


Situarse, es determinar la posi¬ 
ción —longitud y latitud— de! lu¬ 
gar donde uno se encuentra. 

Se admite, sin demostraciones, 
que se sabe, más o menos, dónde 
se encuentra. Es decir, que se 
puede situar sobre un mapa. (Lo 
sentimos por los lectores perdi¬ 
dos en una isla desierta). 

Una llamada telefónica lleva a 
determinar las coordenadas, (Ob¬ 
servatorio más próximo, ayunta¬ 
miento, catastro, etc.). Pero esto, 
no siempre, es la solución más rá¬ 
pida. 

He aquí un método que permi¬ 
te obtener, de un modo bastante 
preciso, las coordenadas de un 
punto, cuando se conocen las de 
un punto cercano (algunos cente¬ 
nares de Kms.), y se dispone de 
un mapa (un mapa de carreteras, 
por ejemplo). Sabiendo que la 
longitud de un meridiano es 
20.004,576 kms., y que ésta co¬ 
rresponde, del Polo Sur al Polo 
Norte, a una variación de latitud 
de 180°, se deduce la relación 
"Grado de latitud-kilómetro". 
(Ver recuadro). 

Un kilómetro en la dirección 
Sur-Norte corresponde a una va¬ 
riación de latitud de, 

180 

20.004,576 

grados decimales=0,0089979413 
grados decimales con 32 segun¬ 
dos. (Resultado obtenido con la 
función "INU ; D.MS"). 

Para determinar la longitud, 
todo esto se complicó un poco. 

En efecto, si se clava una estaca 
en el polo Norte y se da una vuel- 
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ta alrededor de ella —algunos me¬ 
tros en total — se habrá realizado 
un recorrido que corresponde a 
una variación de longitud de 
360°. 

Pero si se da la vuelta a la Tie¬ 
rra siguiendo la línea del Ecua¬ 
dor, los 360° corresponderán a 
40.000 Kms. 

La variación de la longitud en 
función de la distancia recorrida 
en la dirección Oeste-Este, no se 
calcula, por tanto, con la ayuda 
de una simple regla de tres. De¬ 
pende del valor de la latitud (S). 

Con mayor precisión, la cir¬ 
cunferencia de la tierra en el 
Ecuador es de 40.076,594 Kms. 
Un trayecto de un kilómetro en 
la dirección Oeste-Este, corres¬ 
ponde a una variación de longi¬ 
tud de 

_ 360 

40076,594 x Cos S. 

¿Un sextante?. 

No, 

un programa. 

Teniendo a nuestra disposición 
un método de cálculo infalible, 
sería deplorable volver al sistema 
prehistórico, lápiz + papel, para 
explicar nuestras fórmulas. 

Algunos minutos para com¬ 
prender el programa, algunos se¬ 
gundos para introducirlo y ob¬ 
tendrá sus grados con una preci¬ 
sión satisfactoria. 

Un ejemplo; 

Santiago - Vailadolid. 

Cálculo de las coordenadas 
geográficas de Vailadolid, a partir 
de las de Santiago: 

Sobre un mapa de carreteras, 
normal y corriente, de escala 1/ 
500.000 (1 cm = 5 Kms) se han 
medido las siguientes distancias: 

Vailadolid se encuentra a 30 
centímetros a! Sur de Santiago 
y a 62 centímetros al Este. (Qué 
pequeño es el mundo). 

Coordenadas geográficas de 
Santiago: Longitud 5 o 0' 10” 
Oeste; latitud 42° 50' 04”. 

Método a seguir. 

— 1 cm = 5 kilómetros, entonces 
2 A 


— Coordenadas geográficas de 
Santiago - 50010 B 

425004 C 

— Distancias medidas sobre el 
mapa de carreteras 

+ 62 D 
- 30 E 

— Resultados. Pulsar A' yx^t 

Del mismo mapa de carreteras, 
que dispone de coordenadas, de¬ 
ducimos que el resultado debe 
aproximarse a longitud I o 0' 7” - 
latitud 42° 56' 00”. 

Como referencia para otros 
cálculos, puede ser útil BUR¬ 
GOS, por coincidir su longitud 
con la de Greenwich. 

Modo de empleo 

Una vez introducido el progra¬ 
ma en memoria: 

1 - Introducir n. Son los kiló¬ 
metros que corresponden a 1 cm. 
sobre el mapa, n A. 

2 - Introducir las coordenadas 
geográficas del punto P de refe¬ 
rencia, Una longitud Este, llevará 
un signo "+". Una longitud Oes¬ 
te, llevará un signo Una lati¬ 
tud Norte llevará un signo "+”, y 
una Sur, un signo 

Las coordenadas se introducen 
en forma de grados, minutos y 
segundos. 

Longitud B ; latitud C. 

Por ejemplo, si un punto tiene 
como coordenadas: longitud 4 o 
27' 6” Oeste y la latitud es 26° 
6' 36” Norte, se introducirá: 

-4,2706 B ; 26,06 36 C 

3 - Introducir X. Es la distancia 
en cms, , medida sobre el mapa, 
entre el punto P y el punto A, si¬ 
guiendo la dirección Oeste-Este. 


Algunas medidas útiles: 

Radio ecuatorial: 6 378 386 m. 
Radio polar: 6 356 912 m. 

Radio mediano: 6 371 090 m. 
Longitud de un meridiano (dis¬ 
tancia entre 2 polos): 20004 
576 m. 

Correspondencia trayecto Norte- 
Sur/Variación de longitud: 1 
km. representa una variación 
de latitud de 32". 

10 Kms,, 5'23”. 

100 Kms.,53'59". 


Si el punto A se encuentra al 
Este del punto P de referencia, X 
será positivo. Si el punto A se en¬ 
cuentra al Oeste, X será negativo. 

x D. 

Asimismo, introducir y. Es la 
distancia en cms. medida sobre el 
mapa, entre el punto P y el pun¬ 
to A, siguiendo la dirección Sur- 
Norte. 

Si A está al Norte de P, y será 
positivo. Si A está ai Sur de P, y 
será negativo. 

y e. 

— Cálculo: A'. 

Una vez terminada la ejecu¬ 
ción, la calculadora visualiza la 
longitud de A. Pulsando sobre 
X ^ t , se obtendrá la latitud 
de A. 

longitud Xí*t latitud. 

Para un nuevo cálculo, sólo 
habrá que introducir los valores 
que deben ser modificados. 

Nota: Para una mayor preci¬ 
sión, es preferible determinar an¬ 
tes. Y (trazando un eje Norte-Sur 
que pase por P), y después X 
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(trazando un eje Este-Oeste que 
pase por A). En efecto. 

En efecto, para variaciones im¬ 
portantes de latitud, el valor de S 
está suficientemente modificado 
como para introducir: Un error 
no despreciable en el cálculo de 
la longitud. 

En algunos mapas, los meridia¬ 
nos están dibujados. Se puede 
dar uno cuenta de que la "recta" 
Norte * Sur presenta una ligera 
curvatura. Esta se sigue al despla¬ 
zar la regla en el sentido de Y. 
Algunos milímetros, de más o 
menos, pueden convertirse en 
errores no despreciables en el va¬ 
lor de la longitud. La lástima es 
que la Tierra no haya sido plana. 

Existe la posibilidad, de ahora 
en adelante, de determinar en al¬ 
gunos segundos, su nueva situa¬ 
ción, gracias a este método tan 
original. 

A saber si el correo le llegará a 
su dirección geográfica a partir 
de ahora.□ 

Antoine Jennet. 
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BASINOL: 

El Basic español 


Tratando de demostrar que no es tan difícil como 
quieren hacernos creer los fabricantes e importa¬ 
dores de ordenadores, os presentamos en_ este 
artículo como hacer un Basic Español (BASIÑOL). 
Somos conscientes de no haber inventado nada, 
simplemente aportamos nuestro grano de arena. 
Los que disponéis de un Apple, adelante. Los 
demás, animo para hacer vuestras investigaciones 
al respecto. Nada es imposible. 


Características 
generales del BASINOL 

BASIÑOL es el BASIC APPLE- 
SOFT modificado de forma que las 
instrucciones —antes en inglés— 
aparezcan en Español y por lo tan¬ 
to podamos efectivamente pro¬ 
gramar en un lenguaje Español. 
Aparte de esto, debo aclarar que 
la suerte o el concepto sobre el 
que reposa esta implementación 
nos va a permitir disponer de un 
traductor simultáneo entre el BA¬ 
SIÑOL y el APPLESOFT, esto es, 
que s[escribimos un programa en 
BASIÑOL podremos luego visua¬ 
lizarlo en APPLESOFT —es decir 
en inglés—automáticamente ade¬ 
más, claro está, de poder ejecutar¬ 
lo. Lo mismo se puede decir sí en 
vez de escribirlo en BASIÑOL lo 
escribimos en APPLESOFT: Pode¬ 
mos visualizarlo después en su 
versión Española. 

Siguiendo con las característi¬ 
cas generales, merece la pena re¬ 
saltar que cualquier programa pre¬ 
viamente escrito en APPLESOFT 
podrá listarse y visualizarse en Es¬ 
pañol, pues esta adaptación no 
requiere ningún protocolo inicial 
que impida la traducción de pro¬ 
gramas anteriores. La compatibili¬ 
dad con los programas BASIC es 
total. 

Para aquellos que no conozcan 
el BASIC inglés pero en cambio 
deseen comprender un programa 
escrito en dicho idioma, bastará 
con que introduzcan el programa 
en su versión extranjera y luego 
por medio del traductor simulta¬ 
neo lo visualizen y lo listen en 
BASIÑOL... 


Conceptos técnicos 
previos 


Sí usted es eminentemente 
práctico, por favor siga en la próxi¬ 
ma sección pues esto no le servirá 
de mucho. 

El BASIC como todos sabemos 
está interpretado, esto es, las ins¬ 
trucciones se van interpretando, 
traduciendo y ejecutando a medi¬ 
da que se encuentran, y no de una 
vez por todas antes de ejecutarlo 
como ocurre en ios compiladores. 


JLiST 

1 REM ************************* 

2 REM «LISTADO I.VISUALIZACION* 

3 REM *DE LA MEMORIA. * 


4 REM *EN BUSCA DE LA TABLA..■* 

5 REM ************************* 


6 REM 


7 B 

- 13 * 4096: REM 

HEX *DOQO 

15 

HOME 


20 

FOR I = 0 TO 15 


25 

FQR J - 0 TO 15 


30 

VTAB (3 + 2)i HTAÉ 

i íJ + 2) 

35 U 

= PEEk íB + I * 

16 + J> 

100 

GQSUB IOOOí REM 

TEST ASCII 

120 

PRINT X*;: NÉXT J 

T NEXT I 

260 

PRINT 


269 

INRUT "PULSE RETURN PARA SEG 


U3R M s A* 


270 

B = B + 256 


275 

GOTO 15 


4 00 

end 


1000 

REM MIRA 53 ES 

LETRA G CON 


TROL 


101O 

IF U < 128 THEN 

X4 4= CHR* 


(LO : NORMAL í RETURN 

1020 

IF U > 159 THEN 

X$ - 11 " 

1040 

IF U > 127 THEN 

Xí = CHR* 


EU): INVERSE : RETURN 


LISTADO 1 


Para traducir las instrucciones, 
el intérprete utiliza una codifica¬ 
ción previa del programa de forma 
que todo resulte más rápido. Esta 
codificación es muy sencilla pues 
se trata únicamente de asignar un 
número a cada instrucción. Así, el 
listado en la memoria contiene 
una sucesión de números con los 
códigos —'tokens'— de cada 
instrucción BASIC del programa. 

Esto quiere decir en definitiva 
que el lenguaje utilizado a nivef 
del intérprete no es ni inglés, ni 
español, ni chino: Es numérico. 

¿Dónde aparece pues el 
conflicto fingüístico? 

La respuesta es a nivel de 
edición Es decir, el problema 
surge únicamente cuando 
queremos «ver>- o editar o 
«escribir» un programa —un 
listado en definitiva—. En estos 
casos, el interprete necesita 
presentar la información de una 
forma más agradable para la vista 
que una mera sucesión de 
números. Así pues convierte los 
números con las claves en 
palabras o instrucciones con las 
cuales se hallan relacionadas. 

El procedimiento que se sigue 
es más o menos así: Se tiene una 
tabla en una zona de la memoria 


y 

3LI5T 


1 

REM 

********************* 

2 

REM 

*LISTADO 2. * 

3 

REM 

«LECTURA DEL BASIC * 

4 

REM 

*EN LA CARTA MEMORIA* 

5 

REM 

********************* 

6 

HOME 

: PRINT 

7 

PRINT 

■‘PONGA EL SYSTEM MASTER 


EN 

EL DRIVE 1" 

a 

PRINT 

"PULSE RETURN PARA SEGUI 


R": 

INFUT A* 

12 

X = 

PEEK í - 162551 + PEEK < 


- 

162551: PRINT CHR* (4)"B 


LOAD FPBASIC* Di":X - PEEK i 


- 

162531 + PEEK C - 16253) 

LISTADO 2 


con todas las palabras escritas 
una detrás de otra. Cuando 
encontramos que el código de una 
instrucción BASIC es «x», 
entonces cogemos fa palabra 
número «x» de la tabla y la 
escribimos. 

Para el caso de escribir un 
programa, el procedimiento es 
inverso. Dado una palabra, 
queremos hallar su código 
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1 REM MttmtltmtlilMIM 

2 REM 4 LIST At>U 3* * 

3 NÉP1 (EDICION DE LA TABLA* 

4 REM tlimtMMttMtMtlI 

5 F'RINT -PULSE ESFAC1D PARA WD M 

ODIFICAR UN CA- PR INT "PAC 
TER DE LA TABLA , " í PR 11JT 17 - 
’ PARA IR A LA POSICION ANTE 
fi 1 OR"í PRINT PARA IR A 

LA LINEA ANTERIOR" 

6 PRINT " ’ ’ PARA GRABAR £L 

Ut V PASAR AL SIGUIENTE" 

7 PRINT ANTES DEL ULTiMÜ CA 

RACTER DE UNA PRINT "FA«-A 
ERA '■ 

B PRINT ■ f : L PARA ACABAR 1 ' 

9 PRINT ; PRINT : PRINT : tNPUT 
'■PULSE RETUftN PARA EMPEZAR. . 


; Ai 


10 DIM BU<256) 



i4 b 

= 13 * 4096 



I5 HOME 



20 FGR I - 0 TO 

15 


25 FDR J « 0 TO 

15 


50 VTAB (I + 2): 

HTA& 

ÍJ + 2> 

35 U 

* PEEK ÍB ■+ 

J * 

16 + J) 

í 00 

GGSUB IOOO: 

REM 

TEST ASCII 

120 

PRINT üt;: NEXT J 

: NEXT I 

2Ü 0 

PÜR 1 - 0 TO 15 


210 

FOR J ■ 0 TO 

15 


220 

VTAB I +2: 

HTAB 

ú * 2: GET 


A* 



250 

G0Í3UB 2000: 

REM 

TEST ENTRAD 


A 



255 

PRINT A* 



2 6Ú 

NEXT J.I 



270 

GGSUB 3000i 

GOTO 

15 

400 

END 



iooo 

6U <I * 16 + 

Ji = 

u 

1010 

IF U < 128 

THEN 

K * = CrH R* 


ÍUÍ: NORMAL 

: RETURN 

1020 

IF U > 159 

THEN 

X4 = " " 

1040 

IF ü > 127 

THEN 

X» = CHRÍ 


CUJ: INVÉRSE : RETURN 


2000 

1P Aí 

*= " >" THEN 

GQ5UB 300 


Oí GOTO 

i 15 


2001 

P - 16 

* J + J 


2005 

IF Ai 

a " * ,l THEN. 

POP i GDTO 


260 



2006 

IF A* 

= '*" THEN 

I - I - 1; 


PDP : 

GOTO 260 


2007 

JF Ai 

« THEN 

J = J - 2i 


POP : 

GOTO 260 


ZOOS 

] F Ai 

■ " í ,l THEN 

5000 

2010 

IF Ai 

= »f n THEN 

UL * 1281 POP 


s GOTO 

220 


2015 

IF ASE ÍAt) < 33. THEN UL * 


Ol FÜF- 

í GOTO 22ü 


2020 

ÍF A5C ( Ai ) > 9B THEN UL = 


0: POP 

: GDTO 220 


2022 

NORMAL 


2025 

IF UL 

* 128 THEN 

INVERSE 

2030 

BU ti * 

16 + J> = 

ASO ÍAÍ> + 


UL:UL - 

> Oí RETURN 


3000 

FGR I 

= O TO 255: 

: PDKE 6 + 


I,BU i I} 

: NEXT iB ■ B + 25 Sí RETURN 

4000 

FÜfr I 

- 0 TO 151 

FOR J ■ 0 TO 


15:U = BU(I * 16 + Ji : GDSU& 
IOOO: PRINT X*; 

4005 NE*T 

4006 NEXT 

5000 HUME : PRINT "PONGA EL CISC 

O DONDE VA A GRABAR EL"; PRINT 
"RASI NCIL y PULSE RETURN' 1 

5002 GGSUB 3000 

5003 NORMAL : PRINT 

5005 PRINT "EL DISCO VA EN EL DP 
IVE l JL t GET A* 

5010 PRINT CHPt (4L&5AVE BAEIN 
DL, A» DO 00. L i 3FFF. D1 “ 

50 £0 END 

LISTADO 3 


asociado para colocarlo en el 
programa codificado. Para ello 
buscamos en la tabla donde está 
colocada dicha instrucción y su 
posición nos dará el código. 

Este es en términos generales 
el procedimiento seguido por un 
intérprete para traducir a 
números lo que se dice en 
palabras. Salta a la vista que para 
cambiar el idioma del BASIC 
solo tenemos que cambiar la tabla 
con las palabras asociadas a cada 
código de instrucción y modificar¬ 
las. 

Para saber donde se encuen¬ 
tran hay que proceder con calma y 
tacto. 

Lo mejor es hacer un pequeño 
programa en BASIC como el del 
listado -1 que nos permitirá 
traducir todos los números de la 
memoria a letras. Ya que los 
caracteres suelen codificarse en 
ASCII, tendremos grandes 
probabilidades de encontrar por 


1 

JLIST 


1 

REM 

* I*****.**#*********** 

2 

REM 

*LI5TAD0 4* t 

3 

REM 

tLECTURA DEL BfiSJNQL* 

4 

REM 

IEN LA CARTA MEMORIA» 

5 

REM 

**f*ttt*4«****t****** 

¿i 

HOME 

i PRINT 

7 

PRINT 

"PONQA EL DISCO CON BASI 


NÜL 

EN EL ORIVE 1" 

B 

PRINT 

"Pulse return para seguí 


R": 

input a* 1 

12 

X - 

PEEK í - 16255) +■ PEEK < 


- 

16255): PRINT CHRÍ 


LOAD BASINGL,DI":X - PEEK < 


- 

1625"? + PEEK í - 162531 ; 

í LISTADO 4 I 


algún lado una sucesión de 
números cuya traducción en 
caracteres sea la tabla de instruc¬ 
ciones, El único problema es 
saber por donde vamos a buscar... 

Dado que según nos consta por 
los manuales el BASIC APPLE¬ 
SOFT se halla en la memoria 
ROM a partir de ía dirección 
DOOO, será por esta dirección por 
donde empezaremos a buscar. Un 
último problema: Algunos de los 
códigos ASCII son controles, y a 


a Xel/j í í \ Y .1 í 0 s X _ a L 

q X e?W;-: \ Y1 í Os X _ a ¡I 

s s d q j q T q $ r i r S)r 

uí. b dq 1 qTq$rlrS'r 

Wsashvj- vhwnwf wUI 1 

Wsashv)vhwnwfwWí 

w & w t w 1 r n r r r v r r 

w ín (ai t w 1 r n r r v r r 

rir j YUr r /»r 3 r b ■ s 

Nr j YUr r Y. rJr b ; s 

b a r E Z === Y Y H Y H X t 

Bar EZ=“Y VHYHXt 

Y j Y í Y m X k Y q H X / X 

Y j Y l Y m X k Y y H X / X 

czgTI XÍViV CHV 

czgTZ X*ViV lHV 

kfU/k b TH_ L b 

k#l/k b TM b 

n.üHi ojoqo;p p 

n - o h :l üjoqo!; p p 

d q V-f Ec qet Fí Zr r 

dg yf Ec ge-f F*f Z f t 

i y3qy > q í 3, i h j > 

i y :¡>cj y ) y í i íh j } 

nPT.FN On cid .. 

np i FN_On J r dd _ 

ENDFDBNEX©DATAIN 

FI«DESDBSIBDATBP 

PÜCDEDDIBREhDGST 

EDIRBORDIHLEBGRT 

EX1PPR#IN#CALDPLD 

XT0PR*1N#LLAHPL0 

PHLI BvL I HHGRSHGiai 

'<PH LI $ y LlfclGRASG R 

HCOLOR*HPLOVDRA« 

HCOLORoPTODIBUJA 

XDRAlíHTñBHOMBRQT 

XDIBBHTABPANVROT 

«SCALEOSHLGADTRA 

«ESCALOLEEDIEIRA 

CBNOTRACENORMABI 

C BNOTRACBNORM AÜ. I 

NVERSBFLASHCOLÜR 

NVERSBFLASHCOLOR 

«POBVTABHIMEM©LO 

oPOEVThBMXMEMo mn 

MEMODNERBRESUMBR 

MEM p ENERRRESUMHR 

ECALOSTORBSPEED© 

ECALRALHVELDCI De 

LE®GOTORUHIBREST 

SEA IR ñRUHSBREST 

ORBSQOSUBRETURWR 

ORBftSUBBVOLVERCM 

E«STQBGWWAI©LQAD 

N ©STDPEHESPSL. E ED 

SAVBDEBF-'OKBPRI N© 

GRABDEBFOKHESCBC 

GON©L. IBÍCLEAHSE© 

ONBL .18'BVAC I ACOGE 

NEWTAB©TOFHSPC©T 

N V G T AE © A A F1© S P C © E 

HEWA©NO©S'TE ls*oéfl 

NTOAB'NOBPASO*O*0 

©ANOOia©©©SGH:[N©A 

ÓANDOBÓ603GH1 NBA 

B9USRFRKSCRN©PDA 

B9USBFRBSCRN ©PDK> 

P08SQBRN6L0BEXI9C 

POBSQBRNDLOSEXBC 

OSSIHTAMATMPEEtóL 

OSSIRTA»ATMPEERL 

EMSTRéVABASaCHRi 

EHSTRBVAlDASOCHRtt 

LEFT®RIGHT«MID© 

IZQUBDERECBMED* 

FIGURA 1 Los caracteres 

con círculo van precedidos de / 
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nosotros no nos interesa visuali¬ 
zarlos. Así pues por medio de un 
test del programa los convertimos 
en espacios 

Asimismo, los carácteres 
alfabéticos pueden tener dos 
códigos en ASCII, uno en el rango 
193-218, y otro en el rango 65- 
90. Así por ejemplo a la letra A le 
corresponden el 193 o el 65 
indistintamente. Así pues como 
esto puede resultar importante de 
cara a nuestras modificaciones, el 
programa los va a editar en 
inverso cuando el código sea 
mayor que 128 y en normal 
cuando sea menor. 

Al ejecutar el programa, 
comienzan a aparecer en la 
pantalla un montón de caracteres 
sin sentido aparente lo cual es 
lógico dado que no todo lo que hay 
en memoria son frases y palabras. 
Sin embargo a partir de la 
posición de memoria D050 
aproximadamente comienzan a 
desfilar las palabras clave del 
BASIC APPLESOFT... La suposi¬ 
ción era pues exacta. 

Un ligero vistazo y nos damos 
cuenta de que la última letra de 
cada palabra está escrita en modo 
inverso. Esto quiere decir que 
para señalar el final de la palabra 
el intérprete le asigna el código 
mayor que 1 28 —en realidad esto 
equivale únicamente sumar 128 
al código del rango 65-90— + 

Ahora ya sabemos corno se 
codifican fas instrucciones y 
donde. Sólo nos resta cambiarlo. 
Al llegar a este punto se nos 
plantea un problema o mejor 
varios problemas. 

El primero —fundamental— es 
que el intérprete está en ROM, y 
por lo tanto no lo podemos 
modificar, pues no se puede 
escribir en este tipo de memorias. 
Para resolver este problema 
haremos lo mismo que se hace 
para utilizar el BASIC ÍNTEGER. 
Lo implementaremos en la carta 
de lenguaje Para ello tenemos 
que leer en la carta de extensión 
de memoria el BASIC APPLESOFT, 
lo cual se puede hacer con el 
programa del listado 2. (Al 
ejecutarlo hay que prever que en 
el drive se encuentre el SISTEM 
MASTER DOS /.3 ). 

Una vez en la carta de lenguaje 
hacemos la conexión con esta de 
forma que aparentemente no 
habrá pasado nada ya que 
seguiremos con el mismo cursor 
en el borde lateral y el programa 
anterior no habrá desaparecido 
como cuando decíamos INT. La 
diferencia está en que ahora en 
BASIC lo tenemos en RAM listo 
para ser modificado. 

Para modificar la tabla basta 
con editarla de nuevo, si bien en 


la sección siguiente describimos 
un método alternativo más seguro 
para los que no quieran 
complicaciones. 

Después de haber leído el 
BASIC APPLESOFT por medio del 
programa de listado 2, ejecutamos 
^l programa del listado 3, el cual 
efectúa la conexión con la carta y 
edita la zona de memoria donde 
reside la tabla. 

Después de visualizar las 
primeras 255 letras de la tabla, el 
programa se sitúa en el primer 
carácter para esperar nuestros 
cambios. El procedimiento de 
edición es bastante rudimentario 
dado que sólo lo utilizaremos una 
vez. 

Básicamente el proceso a seguir 
es el siguiente: 

"Si no queremos cambiar nada 
pulsamos Y —. 

*Si queremos colocar un 


ÍDODO.D25F 


DODO- 

46 

49 

CE 

44 

45 

53 

44 

C5 

DOD0“ 

53 

49 

C7 

44 

41 

54 

CF 

50 

DOEÜ- 

45 

44 

49 

D2 

42 

4F 

D2 

44 

DOE8- 

49 

CD 

4C 

45 

C5 

47 

D2 

54 

DOFO- 

58 

54 

CF 

50 

52 

A3 

49 

4E 

DOFB“ 

A3 

4C 

4C 

41 

CD 

50 

4C 

4F 

D100- 

D4 

40 

4C 

49 

CE 

56 

4C 

49 

Dioe- 

CE 

47 

52 

41 

B2 

47 

52 

Ci 

DI 10- 

40 

43 

4F 

4C 

4F 

52 

BD 

50 

D1 10- 

54 

CF 

44 

49 

42 

55 

4A 

Ci 

D120- 

58 

44 

49 

42 

D5 

49 

54 

41 

D1 28- 

C2 

50 

41 

4E 

D4 

52 

4F 

54 

DI 30” 

BD 

45 

53 

43 

41 

4C 

BD 

4C 

D i 38- 

45 

45 

44 

49 

C2 

54 

52 

41 

D14Ú- 

43 

C5 

4E 

4F 

54 

52 

41 

43 

DI48- 

C5 

4E 

4F 

52 

4D 

41 

CC 

49 

DI 50- 

4E 

56 

45 

52 

53 

CF 

46 

4C 

Dl 58- 

41 

53 

CB 

43 

4F 

4C 

4F 

52 

D160- 

BD 

50 

4F 

DO 

56 

54 

41 

C2 

D168- 

4D 

58 

4D 

45 

4D 

BA 

4D 

4E 

D170- 

4D 

45 

4D 

BA 

45 

4E 

45 

52 

DI 70- 

D2 

52 

45 

53 

55 

40 

C5 

52 

DI80- 

45 

43 

41 

4C 

CC 

41 

4C 

CD 

D1S0” 

56 

45 

4C 

4F 

43 

49 

44 

BD 

D190- 

53 

45 

C1 

49 

52 

20 

C1 

52 

D190- 

55 

CE 

53 

C9 

52 

45 

53 

54 

D1A0- 

4F 

52 

C5 

A6 

53 

55 

42 

D2 

D1A0- 

56 

4F 

4C 

56 

45 

D2 

43 

4D 

D1B0- 

4E 

D4 

53 

54 

4F 

DO 

45 

CE 

D1B0- 

45 

53 

50 

D2 

4C 

45 

45 

C4 

D1C0- 

47 

52 

41 

C2 

44 

45 

C6 

50 

D1C8- 

4F 

4B 

C5 

45 

53 

43 

D2 

43 

DI DO” 

4F 

4E 

D4 

4C 

49 

53 

D4 

56 

D1D8- 

41 

43 

49 

C1 

43 

4F 

47 

C5 

D1E0- 

4E 

56 

CF 

54 

41 

42 

A8 

41 

Dl ES¬ 

CC 

46 

CE 

53 

50 

43 

a e 

45 

DI FO— 

4E 

54 

C3 

41 

D4 

4E 

4F 

D4 

Di FQ- 

50 

41 

53 

CF 

AB 

AD 

AA 

AF 

D2Ú0- 

DE 

41 

4E 

C4 

4F 

D2 

BE 

BD 

D2Ü8- 

BC 

53 

47 

CE 

49 

4E 

D4 

41 

D210- 

42 

D3 

55 

53 

D2 

46 

52 

CS- 

D21S- 

53 

43 

52 

4E 

AB 

50 

44 

CC 

D22Ü- 

50 

4F 

D3 

53 

51 

D2 

52 

4E 

D22S- 

C4 

4C 

4F 

C7 

45 

59 

DO 

43 

D230- 

4F 

03 

53 

49 

CE 

54 

41 

CE 

D239- 

41 

54 

CE 

50 

45 

45 

CB 

4C 

D240- 

45 

CE 

53 

54 

52 

A4 

56 

41 

D24S- 

CC 

41 

53 

C3 

43 

4B 

52 

A4 

D250” 

49 

5A 

51 

55 

A4 

44 

45 

52 

D258- 

45 

43 

A4 

4D 

45 

44 

A4 

00 


LISTADO 5 


carácter en dicha posición lo 
pulsamos y listo. 

"Si este carácter es el último 
de la palabra, entonces 
pulsamos previamente el 
carácter'/' seguido de fa letra 
en cuestión que aparecerá en 
inverso en la pantalla. 

* S i se equivoca puede 
retroceder a la posición 
anterior pulsando J — 1 siempre 
y cuando la posición anterior 
esté en la misma línea. 

*SÍ quiere situarse en la línea 
anterior entonces pulse 
En general debo aclarar que 
este procedimiento es muy 
delicado, ya que debemos usurpar 
más espacio del que originalmen¬ 
te había reservado para la tabla. 
En caso contrario podríamos 
borrar partes del programa 
Intérprete lo cual tendría efectos 
desastrosos... 

Lo que sí podemos —afortuna- 
damente pues no estaba 
asegurado ni mucho menos— es 
cambiar la longitud de las 
palabras siempre y cuando la 
longitud total de la tabla no 
exceda la original. También hay 
que tener especial cuidado en que 
el orden de las nuevas instruccio¬ 
nes sea idéntico al anterior. Esto 
es P si en el original EINJD precedía 
a FOR, en nuestra tabla FIN debe 
ir seguido de DESDE so pena de 
que el nuevo intérprete nos 
interprete todo al revés. 

Para evitar líos, en la figura 1 
se ve la tabla antes y después de 
la modificación para implantar el 
BASINOL. Así que bastará con 
seguir los mismos pasos sin 
olvidar que en las primeras 
posiciones que no se correspon¬ 
den con caracteres, no debemos 
modificar nada —pulse espacio 
para seguir con la siguiente—. 

Cómo implementar 
sin complicaciones 
su Basiñof 


Dado lo delicado del método 
anterior, hemos pensado para 
usted uno más sencillo, pero más 
lento. En todo caso la seguridad 
es total. 

En primer lugar escriba el 
programa del listado 2 y ejecú¬ 
telo —habiendo insertado en el 
drive 1 el diskette SYSTEM MAS¬ 
TER DOS 3.3.—. Ahora el BASIC 
APPLESOFT ha sido leído en la 
carta de lenguaje —por cierto 
usted la tiene ¿no?— y puede ser 
modificado. 

Ahora siga los pasos siguien¬ 
tes: 

‘CALL-151 (esto nos lleva al 
monitor. No tema.) 
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*Ahora escriba el conjunto de 
instrucciones del listado 5. 

Si tiene dudas sobre cómo se 
hace puede consultar el manual 
de referencia —página 44— o 
bien echar un vistazo a la figura 2 


*D0D0:46 49 CE 44 43 53 44 C5 
*DÚDB:33 49 C7 44 41 54 CF 50 
*DOEO¡45 44 49 D2 42 4F D2 44 


FIGURA 2 


donde hemos simulado el co¬ 
mienzo de su tarea —no toda por 
piedad de nosotros..—. 

'Una vez hecho esto ya tiene 
su BASIÑOL, pero ¡ÑO CORRA! 
Primero grábelo en el diskette 
(uno virgen preferiblemente) por 
medio de la instrucción siguiente: 

BSAVE BAS1NOL, ASDOOO. 
L$3FFF 

¡Y Jisto! Ahora ya puede ver su 
BASIÑOL sin más que pulsar Ctrl- 
C. Pruebe a decir lo siguiente: 

DESDE X=1 AL 20 PASO 1: 
ESCR «YO SOY EL MEJOR : SIG 
a ver qué pasa. Si le da syntax 
error es que lo hizo mal. Lo mejor 
es que se asegure de que ha 
escrito bien lo anterior, y si en 
efecto está bien seguramente 
siguió incorrectamente nuestras 


instrucciones. Lo mejor es que lo 
repita todo desde el principio 
apagando primero el APPLE. 

Si todo está en orden ya puede 
dormir tranquilo pues su BASI¬ 
ÑOL está grabado _en diskette. 
Para entrar en BASIÑOL utilice el 
programa del listado 4, Usted 
puede inicializar los diskettes con 
dicho programa de forma que se 
ejecute a! principio nada más 
conectar el APPLE. Para ello 
deberá tener en el mismo Diskette 
el programa BASIÑOL grabado 
previamente —puede copiarlo con 
el FID—. 

Y nada más, en la tabla adjunta 
le damos el repertorio de instruc¬ 
ciones en BASIÑOL. Para traducir 
automáticamente un programa 
de! BASIÑOL al BASIC pulse lo 
siguiente: 

* x=peek{-16254) 

' list 

Con esta instrucción entra 
usted en el BASIC APPLESOFT 
por lo que debe escribir en inglés 
Para pasar del BASIC al BASI¬ 
ÑOL hacemos la operación inver¬ 
sa —siempre que el BASIÑOL 
estuviese ya en la carta de 
lenguaje—: 

*x=peek(-16256) 

‘list 

Con lo cual entramos en BASI¬ 
ÑOL y debemos escribir en espa¬ 
ñol. 


* 

3LIST 

1 cmnt 

* 

2 CMNT «LISTADO 1 * VISUAL!ZACION 

* 

3 CMNT «DE LA MEMORIA» 

* 

4 CMNT *EN BUSCA DE LA TABLA*.■ 

* 

5 CMNT mm***H«*»*W***»*U 

t 

6 CMNT 

7 B = 13 * 4096j CMNT HE* *DQO0 
i 5 PANT 

20 DESDE I - Ü AL 15 

25 DESDE J = O AL 15 

30 VTAS ti + 2>¡ HTAB (J + 2) 

35 U = PEEK <B + I * 16 + J) 

100 5UBR 1000? CMNT TEST ASCII 
120 ESCR X*;: SIG Ji SIG I 
260 ESCR 

269 PEDIR "PULSE RETURN PARA SEG 
UIR";A* 

270 B n B + 256 

275 IR A 15 

400 PIN 

1000 CMNT MIRA SI ES LETRA O CÜ 
NT ROL 

1010 SI U < 128 ENTC Xí = CHR* 
tU> í NORMAL ; VOLVER 
1020 SI U > 159 ENTC X4 = " “ 
1040 SI U > 127 ENTC X* = CHR* 
ÍU>; INVERSO s VOLVER 


Ejemplo de programa editado en BASI¬ 
ÑOL _ 

Buen provecho y que se vean 
los progresos... Q 


Jaime Diez Medrarlo 



Introdúcete en la informática de forma racional* Tu puesto de trabajo puede depender de ello, CURSO GRATUITO DE BASIC 

Curso de 20 horas, un ordenador por alumno y máximo de 9 alumnos por grupo. El precio del curso, 10.000 pts*, te será des¬ 
contado al comprar tu ordenador* 





X 


% 


Ordenadores: * 

Spectravideo 318 
Oric Atmos 

NewBrain * 

Spectravideo 328 
Toshiba TI00 
Toshiba T30Q * 

Impresoras: # 

NewPrint 
Seiko sha 
C Itoh 
Toshiba 
Discos para: 

NewBrain 
Spectravideo 
Toshiba 
Floppys 
Monitores 

Cassettes para ordenadores 


!! VEN QUEREMOS AYUDARTE !! 

* Técnicos especializados te asesorarán sobre el ordenador 
que se ajuste a tus necesidades y sobre cualquier duda 
que te surja. 

* Cu rsos periódicos y prácticos de Basic T Pascal, 
Ensamblador Z-80, CPM, etc. Cursos especiales a 
empresas, colegios, etc. 

* Programas de juegos, didácticos y profesionales. 

* Programas para comercios, pequeñas y medianas 
empresas, profesionales (dentistas, médicos, abogados, 
administradores t etc.) 

* Especialistas en programación para NewBrain y Toshiba. 

* Desarrollo de sistemas de control con microordenadores, 
(Medidas analógicas, telecontrol, te le supervisión, etc. 
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I-as 

Quiniela.*; 

ktnia K1 


doras programa bles también 
sirven para aprender * Las 
tabl as de m uf t ib icar, 

EL ORDENADOR 
npk,PERSONAL 


TRSSO color de Tandy Ra¬ 
dio Siack * Enseñanza: A 
sumar se ha dicho • Dígalo 
con flores: Una tesis docto¬ 
ral * Pasatiempos aritméticos: 
Los cuadrados mágicos o los 
crucigramas de la aritmética 
* Club de usuarios ZX31 
Sinclair * Cosillas del ZXSO 


quina • Robots para Jugar, 
Empezamos par una tortu¬ 
ga • Prepare un TRS para ac¬ 
tivar relés * Un ordenador 
que domina formas y colores 

* Ajedrez. Los principios * 
Banco de Pruebas: FAClT 
DTC 6522 ■ El laberinto de 
Candy. Juegos • Código de 
Barras, Impresora C. Itoh 
8510 • Periféricos. Impresio¬ 
nes sobre impresoras • La ca¬ 
ra ocuita del Sharp * Avión 
Espía • Gestión de ficheros 

* La Informática ayuda al 
tratamiento del Cáncer 6 
¿Es usted lógico? Un juego 
sobre HP-41C * Avanzad ida 
de pruebas: CASIO FX-702P 

* ¿Quieren ustedes progra¬ 
mar los juegos del Ordenador 
Personal? 


Un ordenador d oméstico muy 
perfeccionado. El sistema 
YIS de Yamaha * Tertulia de 
lenguajes: Los lenguajes de 
programación de ordenado¬ 
res * No descuide la seguri¬ 
dad de los programas y de 
los datos * ¿Qué es lo que 
dá vueltas como un disco, es 
negro como un disco y es a 
la vez cuadrado? El Diske- 
tte » La caja negra • ¿Quiere 
Ud, programar fos juegos del 
Ordenador Personal? 


I I Prese litación de ADA- 

L_IMICRO * Disquettes. 

Una tabla de índices para un 
acceso más directo * El Or¬ 
denador y la formación. Si¬ 
mulación y enseñanza asisti¬ 
da • Informática y Sociedad. 
La Cámara de Diputados * 
ES TR5-SQ modelo lJl en el 
banco de pruebas • El orde¬ 
nador trata y mantiene la in¬ 
formación en la consulta del 
médico • Pequeño glosario 
de informática • Utilización 
profesional * Juegos y Orde¬ 
nador. Principios generales 
* Juegos: La huida con obs¬ 
táculos » Perfeccionamiento. 
Para hacer buenos programas: 
una pizca de estructura y un 
puñado de módulos. 


Q JSan Francisco, siempre 
I i la más avanzada (lames 
hacía el Oeste} * Aplicación 
profesional: tres analistas de 
laboratorio ■ Tertulia de len¬ 
guajes, Un lenguaje potente: 
Forth • La generación de las 
pantallas planas * Como 
aprende morse con un Apple 
* Conectar un ordenador 
con un periférico: Los pro¬ 
blemas de interface * Infor¬ 
mática de bolsillo. Cambie 
de base cuando lo necesite 
con este programa para cal¬ 
culadora H.P. * Banco de 
Pruebas: BHP modelo 80-21 
D Micral * ¿Quiere Ud. ju¬ 
gar a los juegos del Ordena¬ 
dor Personal • Material y Lo- 
gical ¿Qué precauciones hay 
que tomar? * Juegos: Micro- 
CaramboJa • Superspy. 


S onvierta las frías ta¬ 
las en sugestivas curvas 
lancemos con la Bcon 
la A, BASIC # ¿Por qué una 
nueva informática?* Enseñe, 
al ordenador. Geografía * 
Iniciación: En la intimidad 
del 007 • Un servidor que 
sirve para todo * Los sub-pro¬ 
gramas * Avanzadilla: Sin¬ 
clair (Continuación] 1 * El jue¬ 
go del ahorcado * Avanzadi¬ 
lla: Sinclair (Continuación} 
* Banco de pruebas: CBM 
8000 * La Dietética asesora¬ 
da por calculadora * Encan¬ 
tos del Sharp • Marcador 
automático con Sharp 1500 
• Las Vegas • Gran Premio 
de Penches * Pequeña músi¬ 
ca informática. 


5 iRenta 1 981 ó como egl- 
I ^ I cular el impuesto * Se¬ 
guimiento de los mundiales 
* Las quinielas. El método 
del potencial * Retrato de 
Familia * El futuro inmedia¬ 
to. Una vida diferente en la 
oficina la Ofimática * Banco 
de Pruebas: VIC-20 * Algu¬ 
nos consejos para Una elec¬ 
ción correcta de logical de 
gestión de ficheros • Prueba 
de periféricos * ¿Quieren 
Uds, jugar a los juegos del 
ordenador personal? • Có¬ 
mo remitir artículos para su 
publicación * Casillas del 


I Ifl Hou&ton: La NCC * 
|_[2_]zx Spectrum * Ponga 
un ordenador en la máquina 
de escribir y consiga el trata- 
miento de textos • Respues¬ 
tas del limón a la manzana * 
Banco de Pruebas: Olivetti 
M-20 * El Orden ador en casa: 
El juego del radar para Sharp 
PC-1211 • Las novedades del 
SIC08 * Big-Pattern • Ban¬ 
co de Pruebas de Logicaf: 
Sasi Data * Informática y 
Sociedad: ¿es de temer la in¬ 
formática? • Informática V 
Medicina: La informática 

ayuda at tratamiento del cán¬ 
cer (I a parte) • Juegue con 
el Ordenador Personal * Co¬ 
mo ganar 14QK octetos al 
menos taladrando un diske- 
tte ■ Las leyes de Golub del 
reino del ordenador * El en¬ 
canto del Sharp * informáti¬ 
ca de bolsillo: El tejano pb- 


12 Apple, IBM y Visicorp 
I I * Novedades en Japón 

* Lenguaje de programación 
ESCOLAR • Ciencia Ficción 
(mañana ¿qué ordenadores?) 

* Los juegos y el ordenador 

* Avanzadilla de pruebas: 
EL ACQRN-ATQM * EL 
BASIC BASICO (La Bcon la 
A, Basic) • El tratamiento 
de textos en Japón ■ Y el 
Hombre creará el ROBOT 
(I a parte} • Traductor - Mo¬ 
nitor/ Intérprete para MZ SO 
8 • Sanco de Pruebas: EL 
WEWBRAIN * ELMASTER■ 
MINO en Basic de! ZX-81 * 
Programe en lenguaje máqui¬ 
na: 2X-81 -ROMPEMUROS 

* El secreto da los algorit¬ 
mos calculadoras • El micro- 
ordenador en las el/nicas * 
La función H|R de la Ti 


| o TLa exposición HARA 
| ^ | lMURi en Tokio * A 
pequeño comercio, pequeño 
ordenador* Abájelos prejui¬ 
cios • Un tuno llamado V1C 
ronda bajo Su ventana * Ex¬ 
ploración anatómica y geo¬ 
gráfica del ordenador * Bam 
co de pruebas: PIPPLE II ■ 
Utilice un ordenador para la 
gestión de su club ■ Pequeño 
glosario de informática * ¿Es¬ 
tará Ud. en forma mañana? 
• Iniciación a la programa¬ 
ción • La arquitectura de los 
programas de juegos * Ges¬ 
tión famil iar • El Apple pela¬ 
do • ¿Recuerda el día de la 
semana en que nació? * 
Avanzadilla de pruebas: SIN¬ 
CLAIR ZX 81 * Las cglcula- 


S Progiama Electoral. La 
Ley d'Hpnt • El progra¬ 
ma supervisor coordinador 
de una circulación completa 
* Feria de los ordenadores * 
Música én el TRS-8Q * Las 
quinielas ÍIV}, Geometría 
dispersa * Las novedades de 
Texas: TI-8S v Tl-57 LCD * 
informática y medicina * 
Ponga un r 'zoom" en sus grá¬ 
ficas * Los juegos y el orde¬ 
nador: Cómo programar una 
partida de dominó • Cuando 
el tren sigue la vía de $u amo 
(i) * Banco de Pruebas: Ata¬ 
ri 800 * Banco de Pruebas 
Logical: CQRP. Generador 
de programas • Divulgación. 


A El sueño de una noche 
L_¡Jde invierno. Los 12 tra¬ 
bajos del microprocesador 

• Ensambladores .compilado¬ 
res, intérpretes. La historia 
verdadera de su nacimiento 

• Les quinielas, relaciones de 
equivalencia * ¿Qué periféri¬ 
cos conectar a su ordenador? 

• La informática personal en 
Japón * Sí está perdido, si¬ 
túese con un mapa y una cal¬ 
culadora de bolsillo * Banco 
de Pruebas: Philips P2QQ0 

• Una cuestión de método. 
La programación estructura¬ 
da * Tres novedades Sony 

• Avanzadilla de pruebas: 


0 l¿EI Basic le cansa? * 
I ¡ Prueba de periféricos • 
Las quinielas (!H), El símil 
cristalográfico * Ensayo para 
Los Angeles 84: 007 emite 
desde el Valle del Silicio * 
División de polinomios • 
Banco de Pruebas: Sharp 
MZ80-B * ¿Quiere Ud. jugar 
a los juegos del Ordenador 
Personal?* Los diskettes y 
su sistema de explotación * 
CosiHasdel ZX 81 • Pequeña 
música informática. 


|13 (Visita a la M ICRQFAIR 
HZJm COMPEC-82: La in¬ 
formática Británica * Hew¬ 
lett-Packard:,.. Una estrate¬ 
gia diferente • Introducción 
al sistema CP/M • ¿Cómo se¬ 
leccionar el software educati¬ 
vo? • Y el hombre creará el 
robot (parre II) * Avanzadi¬ 
lla de prueba: EL AIM 85/ 
40 * LOGO ■ Carmela y la 
tortuga * LOGO - Meta una 
tortuga en su ZX-81 * Los 
nuevos antiguos contra los 


Ecuaciones n-cuadradas 
* Basic y lenguaje má- 
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~uevos modernos * Banco de 
Pruebas: ÉL SIRIUS-1 * Via¬ 
je alucinante a través dét 
INTERPRETEN EN UN MZ- 
80-B * Sistema periódico de 
os elementos. Gestión de fi¬ 
cheros secuencias en CBM 
8032 • Los juegos y el Orde¬ 
nador {Parte II), Cada ve? 

EL ORE3EIVAOOR 
f7=ki PERSONAL 


te • Un laberinto sin el hilo 
de Ariana - VIC 20 • Impre¬ 
sión efe calendarios optimiza¬ 
da * HP 41. 


meros tiempo con el algorit¬ 
mo AJfa-Beta * Minigolf de 
Karnak: para TRS y Video 
Genis * Las quinielas. O ases 
de equivalencias - Apple II * 
No juguéis a las cerillas si no 
estáis seguros de poder ganar 
HP-41 * Laberinto para MZ 
30 6 * Ficheros para Atom * 
Había una vez en el espacio 
intergalactico del VIC-20. 


□ROENADOR 


PERSONAL 


Los Sistemas de Éxplo- 

_ración 16 bits en guerra 

* I LO - Introducción ai Len¬ 
guaje de ios Ordenadoras • 
Ahorre memoria y aumente 
la velocidad de sus progra¬ 
mas Basic interpretados * 
Banco de Pruebas: EL OS- 
BORNE 1 • GENFRAS 3. 
Programa generador de frases 
para el 2X81 • Avanzadilla 
de pruebas: EL VÍCTOR 
LAMBOA |l • Alerta. Las 
navas del Imperio contraata¬ 
can, ZX-81 ■ Recetario BA¬ 
SIC * PASCAL pera princi¬ 
piantes * La informática v el 
diseño asistido: EL APPLE 
se vuelve artista-le parta * 
Copia de Gráficos en alta re- 
sol ució n sob re i m presora. 
ATOM-ACORN • Las confi¬ 
dencias de) PC-1 500 - I a par- 


PERSONAL 


16 El Cabit-83 deHannno- 
I I ver • Los ordenadores 
16 Bits • Los procesadores 
16 Bits * Banco de Pruebas: 
Dragón 32 ■ Los sistemas de 
explotación 16 bits * PAS¬ 


CAL para principiantes íllt) ' 

* V el hombre creará el RO¬ 
BOT lili}* Pánico en el fon¬ 
do del mar # Las carreras de 
coches, un deporte de Salón 

• Programas de 1 K para el 
ZX-81 * Rally de Montecar- 
10 para PC-1 500 * Recetario 
Basic. 


15 D'seño E A O • Médi- 
I ^I cqs Consulten un O.P, 
» El Ordenador aJ servicio de 
las elecciones • Lenguaje imá- 
, quina y ensamblador ¡el len¬ 
guaje del 6502} • Póngase 
Ud. al día • Por qué y cómo 
informatizarse.,. Consejos y 
recetas* Examinemos las [me¬ 
morias del Basic * Aprendi¬ 
zaje del Basic en un Instituto 
de bachillerato * Pascal para 
principiantes (2 a pane) • 
Banco de pruebas Basic * 
Confidencias del P C. 1500 
(2 a parte) * Banco de prue¬ 
bas: QRIC-1 * El Acorn 
Atom protegiendo a la tierra 
frente a una terrible invasión 
» El Apple se vuelve artista 
í2 a parte} • El juego de Neis- 
cat • Métodos de Monteeario 
ÍP C 1211) * Programa para 
alta resolución (Z X-81) • 
Activación y desactivación 
de sus aparatos domésticos * 
Como hacer un puente • Pro¬ 
ducto de Matrices (H P-41) 

• La astucia y la habilidad 
hacen mas para fundar un 
club que la fuerza y los en¬ 
fados. 

£L ORDENADOR 
PERSONAL 


*|7 I La ® a West C03SÍ Com- 

I l outer Fair * Selección 
de equipos con fines educati¬ 
vos* El G.P r nohace al mon¬ 
je * Viaje al país de los jue¬ 
gos * Lenguaje máquina y 
ensamblador. El ejemplo del 
6502 íy ID • 20.000 Leguas 
de viaje sub-pantalla * Perifé¬ 
ricos HP-lL * Periféricos in¬ 
teligentes para trabajar más 
rápidos • Sobre dos tipos de 
"Cracks" misteriosos en el 
ZX-S1 * Primeros pasos del 
programa en notación alge¬ 
braica * Síntesis musical * 
Nuevos usos para viejas cal¬ 
culadoras * ¿Conseguirá ei 
ZX-81 salvara los náufragos? 
• Conducir una locomotora 
» Un microbiólogo habla de 
sus ordenadores . 


ORDENADOR 


-«O Memorización de panta- 
lo | lla en el PC-1 300 * Pas 
cal para principiantes Í4 3 
parte) • Un sistema operati¬ 
vo estructurado, Unix • Un 
medidor de velocidad de cas¬ 
sette para Atom • Un pode¬ 
roso programa pera la corre¬ 
lación de sus datos. Parte I 
• Como transformar la impre¬ 
sora FC-tOO en un trazador 


de curvas * El Apple se vuel - 
ve artista Í3 a parte) * Descu¬ 
brir las artes gráficas gracias 
a la informática * El ordena¬ 
dor ayuda en la investigación 
de la paternidad * Recetario 
Basic * Las cuatro en raya 
def O.P. * Control informá¬ 
tico del tratamiento antibió¬ 
tico * ¿Quién pagará las ca¬ 
nas, usted o su HP-41? • 
Eche una carrera con su T|- 
59 • Y ante todo la música. 
Práctica de la síntesis musi¬ 
cal * Los invasores han vuel¬ 
to, vo los He encontrado • 
El ordenador Jefe de estación 
Í2 a parie) 


U 0 SICOB-34 edición * 
¡ l Euromouse-BS » Reper¬ 
torio de instrucciones óe! mi¬ 
croprocesador 2-80 V Len¬ 
guaje Assembler * Banco de 
Pruebas: KAYPRQ II * Pas¬ 
cal para principiantes fiche¬ 
ros, procedimientos y funcio¬ 
nes Í5 a y última parte) * 
Banco de Pruebas programas: 
TIME ZONE: la maquina del 
tiempo • Vera Molnar o co¬ 
mo dominar la casualidad * 
Creación artística * Banco 
de Pruebas: EL COMMDDO- 
RE 64 • Dibujos en Perspec¬ 
tiva en su H P-41 * Le toca a 
Ud. ahora, fulminar al dra¬ 
gón deJ VIC-20 * El dibujo 
an imado el alcance de su pan - 
talla ZX81 * Lenguaje máqui¬ 
na para PC-1500 * Gráficos 
en el OSBORNE I * Cálculo 
de Velocidad de perfusión de 
fármacos vasoactivos * Juego 
de las siete y media para el 
CASIO FX 702-P • Integra¬ 
ción por el método Simpsún 
con ZX SPECTRUM, 

2"¡ Estudio detallado de un 
J V.I.A. * Redes locales * 
Repertorio de instrucciones 
del microprocesador Z80 y 
lenguaje Assembler {2 a parte) 
* Banco de Pruebas: RED 
QMN1ÑET • Cómo utilizar 
redes de mil formas razona¬ 
bles * Avanzadilla: Casio PB- 
300 * La falta de dinero no 
es tan grave -clubs - • Ruti¬ 
na en código máquina para 
proteger programas en BA- 


ORDENAD ORI 


SIC ZX81 * Supervisión de 
cuentas corrientes con un 
SHARP PC-1211 * Es el mo¬ 
mento de esquivar HP 41 * 
Dump hexadecimal para PC- 
1500 * A hacer chuletas 
ZX-81 * Programas de 1 K 
para si ZX-81 * Tic tac tic 
tac en Vic y en GRIC • 
Economice i a ocupación de 
memoria Tl-59. 


sultado del concurso) * Or¬ 
denadores que ayudan a vi¬ 
vir • Espíritu ¿estas aquí? o 
los fantasmas del Comino do¬ 
re 64 Í1 a parte), CBM-64 * 
La PC-1500 hace música, 
FC-15G0 * BASIÑOL. El Ba¬ 
sic español, APPLE • O.P. 
Defender, ZX SPECTRUM * 
¿Dónde se encuentran los 
planetas? 2X-81 * Combina¬ 
toria, VIC-20 


22p stema operativo para 
L^Jr-iícroprocesador de 16 
bits: MS-DOS * Repertorio 
de instrucciones del micro- 
procesador Z 80 y lenguaje 
Assembler {3 a parte) * Viaje ¡ 
al centro del LOGO Í3 a par¬ 
te) * Un programa lleno de 
energía atómica, ATOM- 
ACORN * Rosas negras • 
Terrible amenaza a la fede¬ 
ración galáctica HP-41 * 

Banco de Pruebas: MICRO 
FROFESSOR 11 • Geografía 
Espacial. PC 1,500 ■ Choque 
elástico, DRAGON 32 * Rea- 
I izad nuevos caracteres en 
vuestro VIC-20 * Tratamien¬ 
to de textos en la FX-7Ü2P 
* Estadística de dos varia¬ 
bles para eí ZX-81. 


rtij Viaje al centro del Logo 
_£^j(2 a parte) * Pequeños 
que casi no temen a los gran¬ 
des * Realización de un pro¬ 
tocolo CENTRONICS * 
¿Quién es Richard Paul Jo¬ 
nes? * Un laberinto sin el hi- 
lo de Ariadna. VIC-20 ÍF?e- 1 


OA Avanzadilla de Prueba: 
"[ hflF-150 • Viaje al cen¬ 
tro del Logo Í3 a parte) * 
Cuando el sueño se convierte 
en tecnología • Banco de 
Pruebas SORD M-5 * ¿Care¬ 
cen de voz los O.P,? • Intro¬ 
ducción al lenguaje de pro¬ 
gramación C * La PC -1500 
aprende música * Escalera de 
color y escalofríos asegura¬ 
dos * Al claro de Iuna, amigo 
Pierrot préstame tu O.P. * 
Música es el arte de combi¬ 
nar sonidos • Cómo evaluar 
un bjorriano con la HP-41 • 
¿Espíritu estás aquí? o los 
fantasmas del Commodore- 
64 (2 a parte) CBM-64 * fle 
solución de ecuaciones de 1 fijr 
Grado * Rutina para forma¬ 
to de datos en impresión • 
Cuando s\ Atom tiene cita 
con la luna 


MARQUE CON 
UNA R LOS DOS 
N os ATRASADOS 
QUE DESEA RECIBIR 


ranüraiwiraiiaiÉíiSEiíiann 


Nombre 


Apellidos .. „ . 


Dirección 


Tfno, , . . 


Población... D.P. 


Provincia 




Deseo suscribirme a la revista EL ORDEN ADOR PERSONAL, por un ano (10 números) recibiendo 
además LA GUIA de ORDENADORES PERSONALES y los dos números atrasados que marco a 
continuación. 


Forma de Pago: □ Cheque adjunto □ Reembolso □ Giro Postal. 


£7 Ordenador Personal f num r 28 


F irma 


73 






















zx 

Spec- j ue go 
trum 


O.P. Defender 


El presente programa es un juego del tipo Defen¬ 
der, bien conocido por Uds. pues fue uno de los 
más populares antes de que las tragaperras susti¬ 
tuyeran a las máquinas de marcianos en la mayo¬ 
ría de los locales públicos. 


El programa está estructurado 
para que al ser todo en Basic se 
ejecute lo más rápidamente posi¬ 
ble. La rutina principal se localiza 
al principio del programa para 
facilitar la pronta ejecución de los 
GO TO y GOSUB. 

El resto de las rutinas de 
menor importancia como las ins¬ 
trucciones, etc.; están situadas al 
final de programa, ya que no 
requieren gráficos de movimien¬ 
tos rápidos. 

La estructuración también per¬ 
mite que el juego sea fácilmente 
modificado y mejorado. Así mismo 
ciertas de sus rutinas pueden ser 
de interés para sus programas. 

La finalidad del juego se detalla 
en las instrucciones, a continua¬ 
ción una explicación de cada una 
de las secciones del programa: 

110 Llamada a la subrutína de 
la línea 9500 que define 
caracteres, etc, 

120 Llamada a la subrutina de la 
línea 9000 para imprimir las 
instrucciones. 

130 Llamada a la subrutina de la 
línea 8000, fa cual permite 
establecer el nivel dei juego. 
140 Llamada a la línea 7000 
donde se encuentra la su J 


rutina de asignación de va¬ 
riables {puntuación inicial, 
posición, etc.) 

150 Llamada a la subrutina en la 
línea 6000 que imprime la 
pantalía, el marcador, naves. 
N. Q de seres, etc. 

160 Llamada a la subrutina de la 
línea 5000 en adelante, que 
ejecuta la sintonía de intro¬ 
ducción, 

170 Llamad a la subrutina en la 
línea 1000; RUTINA PRINCI¬ 
PAL. 

180 Llama a la subrutina de la 
línea 4000, que informa al 
jugador del final de la par¬ 
tida y actualiza la tabla de 
máximas puntuaciones si 
corresponde. 

190 Ordena que se repita el pro¬ 
ceso entero {de la 1 30 a la 
180). 

500-590 Fija las variables del 
invasor 

L.A.=pos¡cion horizon¬ 
tal en la pantalla. 

L.D.=Posieión vertical. 

A.I.=Decremento de la 
posición horizon¬ 
tal del invasor. 
{Esta determina la 
velocidad con que 
se mueve este a 


través de la pan¬ 
talla y es propor¬ 
cional al nivel del 
juego, 

D.l.= Incremento o de¬ 
cremento de la 
posición vertical 
del invasor. (Se 
escoje aleatoria¬ 
mente de la ma¬ 
triz D() que con¬ 
tiene los posibles 
incrementos o de¬ 
crementos). 

1000-1900 EL JUEGO: 

1010 Llamada a la rutina del 
invasor e imprime este en su 
posición inicial. 

1100 Borrado de fa nave Defen¬ 
der de su anterior posición y 
la imprime en la nueva. C$0 
contiene las dos posibles 
imágenes de la nave; cam¬ 
biando C de 0 a 1 alternati¬ 
vamente para dar el efecto 
gráfico del chorro de los 
motores de propulsión. Se 
examina el teclado, si está 
pulsada la tecla de fuego y el 
invasor esta enfrente de 
usted, entonces se dibuja el 
trazo de un disparo láser 
delante de su nave y segui¬ 
damente se borra éste. Sí su 
posición vertical es idéntica 
a la del invasor se llama a la 
rutina gráfica correspondien¬ 
te. 

1110 Se genera un numero alea¬ 
torio, si éste es menor que 
su nivel de juego dividido por 
diez y el invasor está delante 
de Ud., se dibuja un disparo 
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10 REM_perEMDER - 

30 REM EL. ORDENADOR PERSONAL 
S0 REM RUTORES M,L. Y J.MRURIN 

q§ CLERR 63999: REM PRRR CARAC¬ 
TERES 
100_ 


lie go 
120 GO 
NES 

130 GO 
14.0 GO 
150 GO 
160 GO 
170 GO 


SUB 9500: 
SUB 9000: 

SUS 8000: 
SUB 7000: 
SUB 6000 
SUB 5000 
SUB 1000 


REM INICIACION 

rem instruccio 

REH 5. NTOELES 
REM URRIABLES 
REM PANTALLA 
REM PAUSA „ , 
REM BUCLE PRIN 


1S0 GO SUB 4000: REM FIN 

190 GO TG 130: REM REPETICION 


S10 LET LA=31: LET 
14) +5: LET RI=1+INT 
,3)tíSK).6)+(SKs.9) 
T (RND *6) +1) 

59© RETURN 


LD=INT (RND* 
(RND*3)+(SK) 
LET DIsDIIN 


1010 GO SUB 510: PRINT RT LD,Lfi; 
CHR$ 16+CHR5 5;“<f" „ _ __ 

1100 PRINT RT OSP,l;" )AT 5D, 

l;C$(C + l): LET C=NOT C: IF ( IN 3 
2766=251) RND Lfi>3 THEN PRINT RT 

SD , 4; “----.... 

__BEEP .004,10: BEEP .004,9; 

PRINT RT SD,4;" 

IF SD=LD THEN GO SU 
5 2500: GO TO 1000 

1110 IF RND í SK. RND LR>5 THEN PRI 

NT RT LD,4,‘CHR$ 16+CMR* 4;"-- 

_" ( TO LR-4 

3: BEEP .01,0: PRINT RT LD, 4; " 

" t TO L 

R —4 3 : IF LD «SD THEN GO SUB 3000; 
GO TO SIGUIENTE 

1120 LET OSD=S0; LET SD=SD+2í((I 
N 65276=253 RND SD<19)-(IN 65022 
=254 RND SO>5)} 

1125 LET B#=B*£2 TO )+B$(l): LET 
R*=RS(2 TO )+A(tl); PRINT RT 20 
, 0 ; CHR $ 15+CHRí 4;R$;B$ 

1130 PRINT RT LD,LA;“ LET LA* 

LA-AI: IF LR<0 THEN GO TO 1200 
1140 IF LD+DIMQ OR LD+DI < 5 THEN 
LET DI = —DI 

1150 LET LD=LD+DI: PRINT RT LD,L 
R; CHR $ 16+CHR$ 5; "<S" : IF RND < . 3 
THEN LET DI=D SINT (RND* (6- (2 RND 
SK íi 3J j 3 +11 

1155"IF (LR=2 OR LR=3) RND LD =05 
D THEN LET 5D=OSD: GO SUB 3000: 
GO TO SIGUIENTE 
1160 GO TG 1100 

1200 LET HUMRNGS =HUMANDS—1: PRIN 
T RT 2,27; "0" ( TO 2-LEN STR$ HUM 
ANOS);HUMANOS: FOR X =20 TO 10 ST 
EP -2: BEEP .0©5,X: NEXT X: IF M 
OT HUMANOS THEN GO SUB 2000: GO 
TO 1900 

1210 GO TO 1000 
1900 RETURN 

2000 

2010 PRINT RT OSD,l;" BEEP .1 

,-27: BEEP .1,-27: BEEP .1,-27: 

BEEP .4.-29 

2023 BEEP .1,-27: BEEP .1,-27: B 

EEP .1,-27: BEEP .4,-30 

2030 PRINT OUER 1; INK 0; PAPER 

£i FLBSH 1/ fiT 4 i O j ¿ ^ ^ í / ) ^ t j t i í 

* í / i 

20-S-0 FOP X = 30 TO 0 STEP “5: POR 
V = 1 TO 255 STEP 13; OUT 25djY: B 
EEP ,01,X*2; OUT £54-, X ; NEXT Y: 
NEXT X 

£050 PRINT PAPER 0; RT 4,0 , , , , * , * 

j ji i .i ,( j .t .► jt w * .i ,i ,i „* _* .i ,» ,i ,i ,i OUER 1 

; INK A; ^ , 

£060 LET 2=1; FOR X=i TO 15; PRZ 
nt RT £0,©; INK i;fi$;Bí;RT 20,0/ 

. , , : PAUSE Z: BEEP ,01,X: BEEP e 
01,10-X: LET Z=Z+1: NEXT X: POR 
X=S0 TO 0 STEP “5; BEEP .01,60-X 
BEEP .01,X: NEXT X 
£070 PPINT RT 
£490 RETURN 


£500! 

£510 FOR Y = 1 TO 3: FOR X = l_TO 4-: 

PRINT RT LD,LF¡; INK Xi " * ODC]" : 

EEP . 005, X*10+-5 : NEXT X; NEXT V 
2520 PRINT RT LD,Lñ; " : BEEP 

.1,-40: PRINT RT LD,LA¿" 

2530 LET SC=SC+10+(£0 RND NR>=11 
; + (30 RND NR >21) +(20 RND NR>=31> 

+ Í20 RND NR > =41) : PRINT RT 2,6-l. 
EN 5TR$ SC ; SC „ . „ _., 

2540 LET NRsNR + 1: IF NA/10 = INT_ ( 
NB/10) THEN LET SKsSK+í.l RND SK 
< . 9) 

2900 RETURN 
3000 

3010 PRINT RT SD,1;" ": FOR X=1 

TO 9; PRINT RT SD,2; INK 2; "W : 
BEEP .02,10; PRINT RT SÍ>,2; INK 
Sj BRIGHT 0,;“*fc.": BEEP .01,13: 
NEXT X _ 

3020 PRINT RT SD , 2; INK 5;'* - ; 

5EEP .1,-36 

3030 PRINT RT SD,2; INK 4; *•<=": 

BEEP .1,-40 __ 

304-íJ PRINT RT SD,2; INK 6; "O" : 
BEEP .1, -42 . . _ 

3050 PRINT RT SD, 2; : BEEP .2 

. -44 

3060 PRINT RT SD,2;“ “: PRINT fl 

3070'LET UIDRS =UIDAS — 1; GO SUB 5 
£00 

30S0 IF NOT UIDRS THEN LET SIGUI 
ENTE*1900: RETURN 

3090 GO SUB 7200: GO SUB 6060: G 
O SUB 5000: LET SIGUIENTE=1000 
3900 RETURN 

4000 

4010 PRINT RT 8,0,, INK Si" 

FIN DE LR PARTIDA",, 

4020 FOR X =200 TO -50 STEP -1: B 
EEP .005,XX3; NEXT X 

4030 CLS : IF SC<=5íSSK> THEN GO 
TO 4200 

4035 FOR X =0 TO 2: PRINT RT X,0; 
INK 3J” INK 4;" 

INK 5;" •*: NE 

XT X 

4040 PRINT INK 3; RT 0,0 ;" Hf 

iUV BlEfl » 

4050 FOR X =1 TO 5; FOR Y=20 TO 5 
O STEP 5: ©EEP ,01,Y: BEEP .01,Y 
-5: NEXT Y: NEXT X 

4070 PRINT '': RESTORE : FOR X=1 
TO 4: REflD Y*: FOR Y=1 TO LEN Y 
$: IF Y$!Y)=" “ THEN PRINT " 

GO TO 4090 

4080 PRINT PRPER 1;Y*(Y);: PRUSE 


BEEP 

!01,13: 


INK 

5; " - 


XNK 

4-; **=>" : 


INK 

6; "<S>" ■ 


J1 ;.Y.Y; ♦ ‘ : 

: BEEP - 

£ 

4 i ü , 

: PRINT 

R 

ÍS-1- 

GO SUB 

6 


4090 NEXT Y: PRINT NEXT X 

4130 DRTf) " USTED SE HB MERECIP 
O FIGURAR " , “ EN LR LISTA DE F 
AÑOSOS DEL O.P.DEF 

ENDER ","POR FflUGR, TECLEE SU NO 
MBRE fl CONTINUACION"," DOCE CR 
RACTERES COMO MAXIMO" 

4110 POKE 23624,71: INPUT INK 6j 
"SU NOMBRE."; LINE Y*. IF YS="" 
OR LEN Y*>12 THEN BEEP .1,0. GO 
TO 4110 

4120 LET S$(5SK)=Y$: LET S(SSK)= 
SC 

4200 CLS : PRINT INK 2;Z$: LET Y 
í=CHRí 16+CHR$ 5 + "__ 

4210 PRIÑT INK 6;" LISTR DE HERO 
ES EN CADA NIUEL 
4220 PRINT Y $' INK 6'" NIUEL 
JUGADOR TANTEO " 

4230 PRINT Y$ 

4250 FOR X = 1 TO 5: PRINT . PRINT 
" ";X; INK x + 2;" S»ex) 

f '; INK X+2; "0000" ( TO 5-Lci 
>■; STR$ S (X) i ; S ¡Xí ; NEXT X 
4260 PRINT Y* 

4270 PRUSE 100 

4280 FOR X»1 TO 10: FOR Y=1 TO 5 
: PRINT RT 0,0; INK Y;Z*: NEXT Y 
: NEXT X 

AAAO . RR T.NT_. INK_ .2; RT. Í’L,CL,_7* 

4300 PRUSE 50 

4310 PRINT RT 21,0; INK 3;" DEFE 
i-JDER *■ ; INK S; "DEL ORDENADOR PER 
SONAL“ 

4.320 PRINT 80, “QUIERE USTED JUGR 
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a.-DS.-M'JEl'Q'?' .S.'M” 

4330 LET I*=INKEY$. IF I$<>"5" 
MD Ito"N" THEN 30 TO 4-330 
4-34-0 IF XÍ^'S" THEN GO TO 4900 
2 350 STOP 
4900 RETURN 


50OO| 

3010 3EEF i 
EEP .4,-SS 
3020 BEEP . i 
SEP .4,-1© 
5030 BEEP . í 
EEP .8,-15 
50*0 PAUSE í 
5900 RETURN 


— 3S : L 

BEEP 

■ ; -26 


-26: 

BEEP 

* 2/ -22: 

6 

-22; 

BEEP 

* 2 , -1S: 

B 




60001 

6010 POKE 23693,71: BORDER 0; CL 
5 

6020 PLOT 0,144: DRAM 255,0: DRR 
U 0,31: DRAM -255,0: DRAM 0,-31 
6030 PRIMT OUER 1, PAPER 1jAT O, 

5040 J PAPER S: PRINT XNK 6;AT 1,1 
; "PUNTOS” j AT 1,12; "ÑAUES";AT 1,2 
2; ” LEK -TORES” , 

S050 PRINT AT 2,1;"0000 ( TO 5-L 

EN STR$ SO ; SC; RT S,S7; "0'' ( TO 2 
-LEN STRS HUMANOS);HUMANOS 
6060 PRINT AT 20,0; INK 4¡ AS;BÍ 
&S70 GO SUS 6200 

S0S0 PRINT AT SD,2;Cí(C+l,4 TO í 
6090 •' kETURn 


62001 

621S PRINT AT 2,12;" 

T 2,12; ; FOR X = 3. TO UIDAS: PRINT 
INK NEXT X 

6900 RETURN 


7020 LET Bis"/ V\- / 

7030^ S DIM CS Í2,11) : LET C$ilí =CHR 

f 16+CHRS 3+"<”+CHRÍ 16+CHR* 6+C 

HR$ 19+CHRt 0 + "^ ,J tCHR$ 16+CHR$ 
7: LET C$(2) =C*(1,1) tCHR* 4F'<-" + 
C* í 1,4 TO ) 

7100 LET 0=1: LET SC=®: LET UIPR 
S=3: LET HUMRNOS=15 

7110 LET NR=0 

7200 LET SD = 15: LET D5D=S£> 

7900 RETURN 


S00C 

B010 POKE 23693.40- BORDER 5: 


CL 


£323 PRINT 


6030 PRINT 


:L... 


ELI ü R 
NIV 


t a - fací 


6040 PRINT * INK 
L , 5 - DIFICIL 3 •* 

5060 GO SUB 7000 

S060 LET IÍ=INKEY$: IF I*<"1" OR 
ISV5” THEN PRINT AT 20,0; Aí; ES 
; LET A*«A¥(32)+A*f TO 31): LET 
B*=B*(32)+B*f TO 31), BEEP ,001, 
20: GO TO S060 

S070 LET SK=DAL IS/10; LET SSK =U 
RL- -í* 

0900 RETURN 
90001 

9010 POKE 23693,71: BORDER 0: CL 

S 

9020 PRINT AT 2,1;"EL ORDENADOR 
PERSONAL PRESENTA: “ 

9030 LET Z $ =" 



f£ft/TH 


data 

Systems 


ORDENADOR PROFESIONAL con posibilidades de am¬ 
pliación 6 y 16 bits — Microprocesadores 8085 y 8088 — 
128K RAM ampliable a 768Kb + monitores monocromo o 
color — Uno o dos discos de 5,25" — opcional discos de 
8" o Winchester interno o sea de 320Kb hasta 20Mb. Panta¬ 
lla de 24 líneas y 80 columnas con definición de 225x640. 
Teclado de 108 teclas, con 13 de funciones especiales - 2 
salidas serie R3 232 y 1 paralelo. 


Modelo ZVM. 122-E de 12“ monocromo verde ambar 
Modelo ZVM.134-E de T2" Color Alta resolución. 
Modelo ZVM 124 de 12" monocromo compatible IBM. 


Comercial CRUZ 

MOIMTESA, 38 - Telfs.: 402 92 41 - 401 26 26 - MADR ID-6 
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904.0 PAUSE 200 

905© FOft X =5 TO. 26 STEP 3: PRINT 
RT 7jX-l; INK S;Z$(X TO X+2) ; RT 
6 , X-l.; Z* tX+32 TO X+34)jAT 9,X-i 
;Z$(X+B4 TO X +66 3 : BEEP .02,22: 
PAUSE 20: NEXT X 
9060 PfiUSE 50 

90S0 FQR Xsl TO 10: FOR Y=1 TO 6 
: PRINT RT 7,0; INK Y;Z*. BEEP 
01,-20: NEXT Y; BEEP ,02,-38: NE 
TT X 

9100 PRINT RT 13,1;"PARA EL ZX S 

PF/rnsiiM i>f .¿g, x - 

S|.|§ lET 5 V$ = " 3 UD , ESTA RE MANDO 
DE LA ULTIMA ÑAUE O.P .DEFENDEP^ 
OEL PLANETA MICRO SU MISION E- 
ELIMINAR A TODOS LA» FUERZAS i 
NUASQRAS DE UNA GALAXIA LEJANA 
QUE TRRTAN DECRPTURRR R LOS PRE¬ 
CIADOS HABI- TANTES LLAMADOS LEK 
-TDRES PARA VENDERLOS COMO ESCL 
AUOS. 

9125 LET Y$=Yt+" SU ÑAUE £ 

STR EOUIPRDfl CON UN POTENTE LA 
SER Y MOTORES IONICOS OUE LE PER 
MITEN UOLRR SOBRE LRS MDNTAPA5 D 
EL PLANETA USTED DEBE DESTRUIR A 
CADA UNO DE LOS IN-URSORES QUE 
ENCUENTRE, DE LO CONTRARIO TOMA 
RA UN LEK-TOR. SI DE-SAPARECEN T 
ODOS - USTED SE ■ DES-I-W-T6GAAP A . '• 

913© LET Y$=YS¡+* 

_ CQNTRÜLS5. DEL.LB. m 

-U.F ■ 

H- ARRIBA, Z- ABAJO, M- 

FUEGO. 

BUENA SUERTE!" 

qiifl PDKE 23593.15: BGRDER 1: CL 

9150 FOR X = 1 TO LEN Y$. IF Y*fX3 
= ’• •' THEN PRINT " " 1 : GQ TO 9170 

9150 PRINT Y* IX'. ; : BEEP .02,12 

¿150 PAUSe'2©0: PRINT «0;"PULSE 
PÑTER PARA CONTINUAR" 

¿ 1 MB ir J-NKtiYS í >CHR$ 13 THEN GO 
TO-' 0-190 
9490 RETURN 


9510 POKE 23693,71: BORDER 0: PO 

KE 23624,71: CLS _ 

9520 PRINT_' INK 2 ' ” W* 


9530 PRINT INK 6'"UOY A CREAR GV 
3FICCS-DEFINIDOS” 

9540 POKE 23606,0: POKE 23607,24 

9 

3550 FOR X = 15616 TD 16383: POKE 

X+4S3S4 ,, PEEK X; NEXT X 

3560 RESTORE 9600: FOR X=64128 T 


RER 

D 

Y: POKE 

X 

A : 

NEXT 


4- 

£64 TO 644 

71: 

RERD 

i / í X 






x=*u 

3 

R ‘ Á” TO 

Ü 

SR 

"U" +7 

POK 

E 

X,Y; NE 

XT 

X 


IDRT 

a 


m 




9590 REM 

9600 DATA 0,125,98,114,106,102,1 
ES , 3 


9605 DATA 0,56,24,Y,Y,Y,226,0 
9610 DATA 0,126,6,126,96,'/, 126,0 
9615 DATA 0,226,6,126,6,Y,126,0 
9620 DATA 0,14,22,38,70,126,6,0 
9625 DRTR 0,126,96,Y,126,6,126,0 
9630 DATA 0,126,96,126,98,Y,126, 
0 

9635 DATA 0.126,6,6,12,24,48,0 
3640 DATA 0,126,98,60,98,Y,126,0 
9645 DATA 0.126.70.126,6,70.126. 
0 

9650 DATA 0,126,98,126,98,Y,Y,0 
9655 DATA 0,126,98,124,98,Y,126, 

e 

9660 DATA S,126,96,Y,Y,Y,126,0 
9665 DATA 0,126,98 , Y , Y , Y , 126,0 
9670 DATA 0,125,96,126,96,Y,126, 
0 

9675 DATA 0,126,96,126,96,Y,Y,B 
9680 DATA 0,126,96,Y,110,98,126, 

9685 DATA 0,98,Y,126,93,Y,Y ,0 
9690 DATA 0,24,Y,Y,Y,Y,Y,0 
9695 DATA 0,6,Y,Y,Y,70,126,0 
9700 DATA 0,100,Y,126,98,Y,Y,0 
9705 DATA ©,96,Y,Y,Y,98,126,0 
9710 DATA 0,126,106,Y,Y,Y,Y,8 
9715 DATA 0,122,106,Y,Y,Y,110,0 
8720 DATA 0,126,70,Y,Y,Y,126,0 
9725 DATA 0,126,93,126,96,Y,Y,0 
9730 DATA 0,126,98,Y,106,Y,126,0 
9735 -DATA - -0-, 126,98-, 12 A ,08, Y-, Y, 0 
9740 DATA 0,126,96,126,6,Y,126,0 
ST'AS’ ‘DRT R’ <E*7 2 c£& Y'/YV V 7 Y# 0 

9750 DRTR 0,98,Y,Y,Y V X£6,0 
9755 DRTR ©,9©,Y,Y,V^,5 ,& 

97S0 DRTR © ,106,Y,Y,Y,Y,1S6,0 
97&S DRTR O,S6 í 102 / 24-,Y;lS& í &6,í? 
9770 DRTR © 9S , Y , i£§ , 2 A , Y , Y , 0 
9775 DRTR ©, 1SB 12,2-1,AÓ , 126, O 
9780 DRTR 32,112,2^8,127,127,255 
,255,AS 

9785 DRTR © .Y,Y> 192,25A *25A,252, 

979© DRTR © , 3 # 12,4© , 299 , *3,12,3 
9795 DRTR 0^,3,12,49,12,3,0 
9600 DRTR 0,Y,Y,Y.Y t Y,85,0 
9305 DRTR 3,13,5© ,, 196,196 , S0,13 

3 

9310 DRTR 1,2,4*8,16,32,64,128 
9315 DRTR 128,64,32,15,0,4,2,1 
9320 DRTR 0,Y,Y,Y,Y f 68,66,129 
9825 DRTR 0,Y,Y,24,Y,0,Y,Y 
9830 DRTR 0,Y,60,36,Y,60,0,Y 
9635 DRTR 0,126,66,Y,Y,Y,126,0 
934® DRTR 255,129,Y,Y,Y,Y,Y,255 
SSA5 DRTR 32,132,16,1,72,£,16,12 
9 

9850 DRTR 0,Y,Y,3,Y,0,Y,Y 
9355 DRTR 0,Y,Y,192,Y,0,Y,Y 
93€-3*-e>¡ rrrv ©,y> &3v> £.3-, ©,y 
9365 DRTR 0,Y,252,2 f Y,252i0,Y 
9870 DRTR 3,12,112,129,Y,112,12, 

9875 DRTR 192,43,14,129,Y,14,48, 
292 

9830 DRTR 0,Y,Y,Y,Y,119,0,Y 
9970 DIM S4(5,123: DIH SÍ5): FOR 
X = 1 TO 5: LET S$ÍXÍ="ZX SPECTRU 
H ** : NEXT X 
0980 POKE £3858,© 

9990 DIH D (6): LET D(l)=“2; LET 
D£2) =2: LET DC33=-1: LET LM4J =1. 

LET D(S)=s*3: LET DÍ6)=3 
9999 RETURN 


láser desde la nave invasora, 
(o sea el invasor está dispa¬ 
rándonos}, El cjisparo se 
borra y si la posición vertical 
del invasor es idéntica a ía 
de Ud. entonces se llama a 
una subrutina gráfica que 
dibuja la explosión de su 
nave (fo siento). El ordena¬ 
dor salta después a la línea 
apropiada (contenida en la 
variable SIGUIENTE), 

1120 Guarda la posición actual 
de la nave y la incrementa o 
decrementa de acuerdo a las 
teclas pulsada También se 


comprueba que la nave no 
se salga de la pantalla 
1125 Añade y desplaza las varia¬ 
bles del paisaje AS y BS, 
dando el efecto de avance al 
imprimir éstas en la parte 
inferior de la pantalla, 

1130 Borra el invasor de la anti¬ 
gua posición y decrementa 
su situación horizontal. Si 
esta es menor que cero dis¬ 
minuye en uno ef número de 
individuos y ef control se va 
a la línea 1200. 

1140 Se comprueba si la nueva 
posición vertical del invasor 


está fuera de la pantalla; si 
lo está, se cambia el signo 
def incremento. 

1150 Dibuja al invasor en su 
nueva posición y se genera 
un número aleatorio; si éste 
es menor que 0,3 entonces 
el incremento vertical del 
invasor se cambia 

1155 Se comprueba si la nave y 
ef invasor ocupan la misma 
posición; en caso afirmativo 
se hace una llamada a una 
subrutina gráfica para la 
explosión de su nave. 

1160 Repite la rutina principal 
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de la línea 1100 en adeíante. 

1200 Decrementa el número de 
individuos; si éste se agota 
Mama a la subrutina gráfica 
para la explosión del pla¬ 
neta. Manda el control des¬ 
pués a línea 1900. 

1210 Repite fa rutina principal 
de la línea 1000 en adelante. 

1900 Devuelve el control al bucle 
principal en el principio del 
programa. 

2000-2490 Subrutina que pro¬ 
duce el efecto intermitente 
cuando se toman todos los 
seres del planeta. 

2510-2520 Gráficos de la explo¬ 
sión de un invasor. 

2530 incremento del marcador. 
Este incremento es propor¬ 
cional al número de invaso¬ 
res que usted ha eliminado 
anteriormente Seguidamen¬ 
te se imprime el marcador 

2540 Incrementa en uno el nú¬ 
mero de invasores alcanza¬ 
dos. Si éste es múltiplo de 
diez se eleva un grado el 
nivel de juego. 

2900 Devuelve el control al bu¬ 
cle principal, 

3010-3060 Produce un efecto 
de explosión cuando Ud. es 
alcanzado por un invasor. 

3070 Disminuye el número de 
naves y flama a la rutina de 
dibujo del numero de naves 
disponibles. 

3080 En el caso de que haya 
agotado el número de naves, 
hace SIGUIENTE igual a 
1900 (un n.- de línea) y 
devuelve eí control al bucle 
principal. 

3090-3900 Llamadas a las ruti¬ 
nas de variables, pantalla y 
sintonía Además se devuel¬ 
ve el control al bucle princi¬ 
pal. 

4010-4020 Se informa al juga¬ 
dor de que ha terminado la 
partida. 

4030 Se borra la pantaMa y com¬ 
prueba si se ha conseguido 
un tanteo récord en caso 
contrario devuelve el control 
a la línea 4200. 

4035-4100 Se informa al juga¬ 
dor que ha obtenido un tan¬ 
teo récord. 

4110 Fija los atributos de las dos 
líneas inferiores de ia panta¬ 
lla para un INK blanco, 
PAPER (fondo) negro y Brrgt 
extra. Se pide al jugador que 
introduzca su nombre y se 
comprueba que no es dema¬ 
siado largo o corto. 

4120 Actualiza la tabla de pun¬ 
tuaciones récord. 

4200-4270 Imprime dicha tabla. 

4280-4290 H ace que la palabra 
DEFENDER cambie a dife¬ 
rentes colores. 


4300-4310 Imprime el resto del 
mensaje después de un mo¬ 
mento. 

4320 Imprime en la última línea 
de la pantalla (usando #0); 
preguntando al jugador si 
desea otra partida 

4330 Espera hasta que se pulse 
«S o íf N . 

4340 Si se pulsa S manda el 
control a la línea 4900. 

4350 Se detiene la ejecución. 

4900 Devuelve el control al bu¬ 
cle principal. 

5000-5040 Ejecuta una peque¬ 
ña sintonía para informar af 
jugador que está a puntó de 
comenzar el juego. 

5900 Devuelve el control al bu¬ 
cle principal. 

6010 Pokea la variable del sis¬ 
tema ATTR P con los atribu¬ 
tos de la pantalla, fija el 
color del borde y borra la 
pantalla. 

6020-6030 Dibuja un rectángu¬ 
los en la parte superior de la 
pantalla, con el fondo azul y 
el marco en blanco. 

6040-6050 Imprime el tanteo, 
número de naves disponi¬ 
bles y número de seres; en 
el recuadro. 

6060 I mprime el paisaje en la 
base de la pantalla. 

6070 Llamada a la subrutina de 
impresión del número de 
naves disponibles. 

6080 Dibuja la nave Defenderán 
la posición inicial. 

6090 Vuelta al bucle principal. 

6210 Impresión gráfica del nú¬ 
mero de naves disponible. 

6900 Devuelve el control a la 
parte correcta del programa. 

7010-7020 Crea el paisaje en 
fas variables A$ y B$. 

7030 Crea la cadena C$, que 
almacena las dos imágenes 
de la nave Defender, inclui¬ 
dos sus atributos (CHR$ 16, 
etc). 

7100-7200 Iniciafiza el marca¬ 
dor de puntos y fas variables 
de posición. 

C= (número de naves 
a imprimir)-! 

SC~ Marcador de pun¬ 
tos. 

VIDAS= Número de 
naves disponi¬ 
bles. 

HUMAN0S= Número 
de seres 
que que¬ 
dan. 

NA- Número de inva¬ 
sores destruidos 

SD= Posición vertical 
de la nave Defen¬ 
der. 

OSD= Antigua posición 
vertical de la 
nave. 


7900 Devuelve el control a la 
parte apropiada del progra¬ 
ma, 

8010 Pokea la variable del sis¬ 
tema ATTR P con los atribu¬ 
tos de la pantalla, fija el 
borde y borra la pantalla 

8020-8040 Pide al jugador que 
seleccione el nivel de juego. 

8050 Líama a la subrutina de 
variables. 

8060 Examina, para ver si una 
tecla de la 1 a la 5 está 
siendo pulsada. Si no, impri¬ 
me el paisaje y lo mueve 
hacia la izquierda. 

8070 Fija SK (Nivel del juego) al 
valor que ha sido pulsado 
divido por diez; fija SSK igual 
a diez veces el valor de SK. 

8900 Retorno al bucle principal. 

9010-9110 Imprime ef nombre 
del programa en letras gran¬ 
des y la presentación, 

9120-9180 Imprime las instruc¬ 
ciones a velocidad de lec¬ 
tura. 

9190 Espera que se pulse ENTER. 

9490 Retorno al bucle principal. 

9510-9530 Fija Jos atributos de 
la pantalla y pide al futuro 
jugador que espere mientras 
se definen los caracteres 
gráficos y el nuevo juego de 
caracteres, 

9540 Pokea la variable del sis¬ 
tema CHARS con 256 menos 
la dirección del nuevo juego 
de datos de caracteres. 

9550 Copia los datos del juego 
normal de caracteres de la 
ROM a la RAM (encima del 
RAMTOP). 

9560-9570 Pokea los datos para 
que los caracteres de la era 
espacial , se sitúen sobre el 
juego normal de caracteres 
en la RAM. 

9580 Pokea en el área de gráfi¬ 
cos definidos por el usuario: 
Invasores, nave Defender, 
etc. 

9600-9880 DATAS para el nue¬ 
vo juego de caracteres y grá¬ 
ficos definidos por el usuario. 

9970 Crea ía tabla de puntuacio¬ 
nes record. 

9980 Pokea la variable del sis¬ 
tema FLAG 2 y el ordenador 
se pone en modo mayúscu¬ 
las (CAPS SHIFT). 

9990 Crea una matriz en direc¬ 
ciones, que contiene todas 
las direcciones para invaso¬ 
res, 

9999 Retorna ef control a! bucfe 
principal. □ 
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INVASION 

ANTARTICA 


Proteja la vida animal en la antartica 
Conviértase en un verdadero protector de los 
animales 


Contenido: 

Un pingüino blanco se defiende de 
un invasor mediante bloques de hielo 
azules (Mueve ios bloques empujándo¬ 
los con su cuerpo). El invasor no está 
dispuesto desde luego a que le ataquen. 
En todo momento está buscando la 
ocasión para atacar al pingüino. El 
juego termina en el momento que uno 
de los dos consigue alcanzar al contra¬ 
rio. 

Cómo jugar: 

Pon en marcha el programa y verás 
en pantalla 25 bloques de hielo azules, 
12 de ancho por 11 de largo. Un inva¬ 
sor está alrededor de los bloques. Las 
ordenes para el juego son las cuatro 
flechas que indican las cuatro direccio¬ 
nes. 

Pulsando cualquiera de ellas, conse¬ 
guimos que el pingüino se desplace en 
la dirección indicada. Mueva el pingüi¬ 
no empujando a un bloque de hielo y 
éste se desplazará hacia el invasor en la 
misma dirección en la que se desplazó 
el pingüino. El bloque que hemos des¬ 


plazado, seguirá su camino hasta en¬ 
contrar otro bloque o bien el borde de 
la pantalla. El juego termina cuando o 
bien el invasor es aplastado por un blo¬ 
que de hielo o el pingüino es alcanzado 
por el invasor. La puntuación aparece 
en la esquina superior derecha de la 
pantalla y se calcula restando los se¬ 
gundos que tardamos en alcanzar al in¬ 
vasor, partiendo de 100. Cuando el 
juego termina, pulse CTRL+Z y 
CTR L+T. SÍ desea volver a jugar pulse 
RUN. 

Explicación del programa: 

Puesto que es posible definir un to¬ 
tal de 32 sprites r podemos en teoría 
utilizar 25 sprites para los 25 cubos. 
En la práctica, sin embargo, sólo pode¬ 
mos tener en una misma línea, un total 
de 4 sprites. Otra consideración es que 
si el pingüino o el invasor pasa por una 
línea que tiene los cuatro sprites, este 
se volvería invisible. A fin de evitar es¬ 
te inconveniente, todos los bloques de 
hielo son caracteres escritos con la ins¬ 
trucción PRINT y los sprites se utili¬ 
zan sólo para el movimiento. 


LISTA DE VARIABLES 

XX,YY : Posición del pingüino. 

D : Dirección de movimiento de! 

pingüino. 

P5, P6 : Dato de la tecla entrada. 

BX, BY : Posición del invasor. 

XO, YO : Distancia de movimiento de 
sprite. 

SI, S : Cuida de que el pingüino o 
los bloques estén dentro de 
la pantalla. 

X8, Y8 : Posición del sprite. 

XA, YA : Coordenadas del pingüino o 
del hielo al moverse. 

R,XC,YC : Dirección del invasor. 

TT : Puntuación. 

MAPA DE PROGRAMA 

1050 : Creación de la pantalla. 

60-110 : Entrada del teclado. 

120-150 : Movimiento del pingüino. 

160-220 : Movimiento de los bloques 
de hielo. 

230 : Inicia o para la música. 

240-270 : Subrutina para fijar la pan¬ 
talla. 

280-310 : Subrutína para mover los 
sprites del pingüino y de los 
bloques de hielo. 

320-360 : Subrutina para mover el 
sprite del invasor. 
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1621 9 


P6<> 32 


P6<>64 


E e i 6 1 than 


0 i i f 


t h en 


2881 \ (t 


‘Xfi s l at 


abs<YY-BV>< 


VV>158 


else vPok a Y8 /1 6 


LISTADO DEL PROGRAMA 

20 print H MI H * for 1*9 to i 3 ?t upok e U0intxt¡ Itt T*t i»e 
30 uchr M8343e3e7c3c382c” to 160istchr "182c7c3c3e3e1c34* 
to i 6 Hscol 3t 1 5 >stchr "ffabd5 abd5abd5ff M to Í62«scol 1,5 
40 stchr "24183c5aff182442" to 163iscod 2,163iscol 2.6ivia« 

1 ,B > 30 * 231out 3 2 * fcS 0 ' _ 

30 k «9 1 l 1 *t XX*96> 1 at YY*S0ilet D * 160lse o d 0>D-scod 1.162IA 

60 lat P5* i n P < Íc35 ) ! 1 at P 6 * i n P < & 36 ) i i f P5*2 or ab s < XX-BX > < 1 2 
and ab s(VV~BV> <12 th*n «oto 230 

70 fosub 3 4 0 » i f P5<>32 and P6<>4 and P6032 and P6<>64 than 

Soto 60 , 

80 lf P6*64 than lat X0*2i1at V0*0¡if E“161 than loe 0 to 30 

0.3801lat 5*160 

90 if P 5*32 than lat Y0*2ilat X0*0 

100 if P6*32 than lat X0*-2ilat Y0*0iif D*160 then loe D to 
300,300 ií at D-160 

110 i f P6*4 than lat V0*-2Mat X0*0 

120 lat S*0tlat Xfl*XXs1et Yfl»VVi«osub 2881l«t XX*XPil*t VV*V 

flt 1 at 51*5 v , 

130 scod 0 ,Di loe 0 to XX,VVi i f abs<XX-BX><12 and abs<YY-BY>< 
12 than Soto 230 alst lat X8«XX+8+8*X0/2 

140 lat V8*VV+8+8*V0/2«if XX-176 and P6*64 or VV>158 and P5* 
32 than Soto 60 

150 if vpaak<V8^16*12+X8/16)*0 than Soto 60 else vPoka V 8 /I 6 
*12 + X8/ 1 6,0 

160 loe 1 to X8/16+16,VS/léaieipr int cursor<X8'16*2,Y8r16*2> 

I ■ *4-a- ■ 

178 lat S*0Mat Xfi*X 8 Het Yfl*V 8 ilet X0*X8*4¡lat V0*V0*4íSosu 
b 2801 lat X 8 *Xfli 1 a t Y 8 «Yfl 
180 lat X0*X0x41 1at V0-V0/4 

190 if S*1 and S1*0 or P6*32 and Xfi*9 or P5*32 and Vfl*160 o.r 
P6*64 and Xfl*176 or P6*4 and VR*0 then Soto 228 
200 if v»P aak < < V8+4*V0 ) ✓ 1 i 2 + ÍX8+4 *X0) / 1 6 ) < >0 than Soto 220 
210 if 5*1 than loe 1 to X 8 ,V 8 tSoto 170 elsa loe 1 to X 8 - 8 .V 
8-81 Soto 170 

220 loe 1 to X 8 ,V 8 ivPoke V0/16*12 + X 8 /' 1 6 » 1 iPr i nt cursor<X8/16 
*2 , V 8 r 1 6*2 > í " " i l oc t to 3C0,308iSoto 60 

230 for 1*1 to 'Si f or 11*40 to 90tout 32,&P0+Iiout 32,tHnaxtin 
txtiout 32»&BFiPrint "Sama ovarW" and 

2*0 stchr "ffffccccf3fJcccc* to 132.1¡stchr " ffffcfcf3333cfc 

f■ to 153»1>stchr "f3f3ccccf3f3ffff" to 154,1 

250 stchr "3333cf c f 3333 f f f f " to 155,HvPok» &3B96,&50ifor I» 

I to 25 

260 lat X*rnd< 1 1 >* 1 at Y»rnd<10)*if vPaak<X + 12*V)then Soto 26 

0 

270 vPoka X ♦ 1 2 * V , 1 : P r i n t curtir <X*2,V*2)J “ “ ¡nexttretu 

r n 

288 Sosub 34 01 1 f absíXR-BX ) > 1 2 or abs<Yfi-BV)> i 2 then Soto 30 
8 alsa if abs<X9+Y0><>2 than Print cursor<24,0)tTT+C+C/2 
290 Soto 230 

300 lat C»C*li1et Xfi*Xfl+X0¡let YR*vfl+Y0iif P6*4 or P5*32 the 
n Soto 320 

310 lf Xfl<0 than lat SMilet Xfl*0!Soto 330 alsa if XR>175 th 
an lat S-H1et XR*l76tsoto 330 

320 if Vfi<0 than lat S-ftilat Vfl = 0 alsa if YRMS9 than lat S» 

I I 1at Yfl * 160 
336 raturn 

340 lat R*rnd<3>iif R“0 then lat X C * 0 i 1 a t XC*1 else if R*1 t 
han lat VC*l*1at XC*0 

350 if R*2 than lat YC*0ilet XC*-1 alsa if R*3 than lat VC*- 
li1at XC-0 

360 lat BX*BX + 8 *XCi lat BY*BY+ 8 *YC: if BX< 1 than lat BX »0 alsa 
lf 0XM75 than lat BX-176 

370 lf BV< 1 than lat BY-0 alsa if BVM59 than lat BV*I60 


X8-8,Y 


cursor < X8./ 1 6 


f f f f c f c f 3333c f c 


a 1 sa 


XR>175 


Yfl> 159 than 


else 


R* 3 then 


than 


VC*- 


a 1 s a 


380 loe 2 to BX.BYilet TT*t1ma-TiPrint 
32,íifl0 + rnd<9)sout 32,rnd<8>ir*turn 


!9 than let 8V*I60 
eursor<24,0)!TT+C¡out 
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C-p-s. y 46 columnas; 2 tipos de 
-ai, cintas da varios coloras, 
□resera ideal para al 
jbista o en aplicaciones 
ide se requiera una 1 

. jeña impreosra /f ¡h 

inumérica; con 4HB £ 

arface directa 


P 551) \ \ SI 

t 25 a 86 cp.s. y 

. .o el tipo de letra. Multitud de 
escritura con alta calidad 
etra. Caracteres 
.añolas. 


mejor relación 
ecio / prestaciones 


P,V,P<: 

98.500.' 


GP-100 “LA ECONOMICA” 

50 c.p.s. y 80 columnas. Dos tipos de 
letra. Papel standard de 10'\ con un 
precio muy asequibles el modelo 
VIC con interface para VIC 20 
y COMMODORE 64. X 

l'.V.P.: 44,900,- ,JÍ 








icos; es capa/ de me/clai 
unto en una sola pasada, 
juiendo el Hard Copy de 
siquier microordenador 
con color. 


P-50 “LAS PEQUEÑAS” 


Para que su ''MICRO ANDE* 

E 1 KOSHA 

3¡lí$lflfRíE§>($iRAi^ 



Para cada modelo tenemos todos los números 
en cables, programas e interfaces; 
Paralelo Centronics, HP-IL, lazo de corriente, 
SINCLAIR. COMMODORE-64, VIC-20, 
IEE-448 (HP-IB), IBM y APPLE con 
Hardy-Copy en color, RS-232 con buffer, etc. 

Si desea más información, llame o escriba a: 



AV BLASCO Í0AÑEZ. 114-116 
TEL 372 89 - VALENClA-22 

TELEX 62220 


Delegación en Cataluña: 
Cf Montanar f 60, 4 t 1 
Teíf. 323 32 19 
BARCELONA -36 


I Deseo más información sobre la impresora ¡ 


Nombre- 

Empresa 

Cargo - 

Dirección ■ 

Ciudad-Telf. 
































PONTE O LOS HONDOS 
DE UN SPECTRUH. 

Ahora tu microordenador SPECTRUM es, aún, MAS 
con sus nuevos refuerzos: Microdrive, Interface 1, Interface 2 ... 

¡Por fin podrás grabar y leer información de manera casi instantánea!. 

¡O disfrutar a lo grande con la más extensa variedad de programas 

tanto educativos como de mero entretenimiento!. . - _ 

Y sobre todo vas a tener la posibilidad de aprender a programar 
s (que siempre te sera muy útil) de una manera fácil y divertida. s « A de c° nce ' tt on' ca - 

a dost* ves 

2 No dejes pasar esta ocasión, 

Í ahora que puedes obtener mayor rendimiento de tu SPECTRUM. 

ESTE VERANO PONTE A LOS MANDOS DE UN SPECTRUM 











¿Conseguirá 

elZX-81 

salvar 

a los náufragos? 


Si sólo dispone de 1 Ko en su ZX, es ampliamente 
suficiente para entrar el corto programa de juego 
que le proponemos. ¿Cuál? Esto depende de su es¬ 
tado de ánimo: se siente guerrero, y es un tanque 
que intenta dar en el blanco; se siente melancólico 
y manda un ramo de flores a su Dulcinea; quiere 
divertirse y.. . Sin lugar a dudas, sus distintos es¬ 
tados de ánimo le llevarán a realizar juegos inédi¬ 
tos. iCuéntenoslos!. 


Su humor indica tormenta. ¡Cui¬ 
dado, puede naufragar! Pero no impor¬ 
ta mientras sepa utilizar las tedas "6“ 


y "7" para desplazarse -subir o bajar— 
y la tecla "5" para (supongamos) lan¬ 
zar su salvavidas. Claro que —y desgra- 


iea RfiND 
110 LET X=10 

12® LET 5-0 

130 LET ñf = “- *-—*■ 


14-0 LET fisXNT IRND*£SÍ 
150 LET B=R 
150 LET N=2S 
170 LET T = 120 

200 LET T^T-1 

310 IF XhíKEYS = ,, 6” THEN LET X=X + 

1 

ase XF INKEY* = "7'* THEN LET X=X- 

1 

230 IF X-0 OR X = 2© THEN LET X=R 
24,0 CLS 

250 PRINT RT X,29; 29;“ 

; RT & jft; 11 i”; 

360 IF INKEY*<>“5“ THEN GOTO 02 
270 LET N=N-1 

230 PRINT RT XíR^RSÍ TD 29-RB5 
Rí 

290 IF XORBS B THEN GOTO 320 

300 LET 3=5+1 

310 PRINT RT B>R; M * TP 

320 LET R=R+2-INT ÍRN£>*5> 

330 LET S=B+2-INT tRNO+SI 
3+0 IF RB5 R>£3 THEN LET A =23 
350 IF RB5 B>13 THEN LET B=I3 
3S0 IF T RND N THEN GOTO 200 
+30 PRINT RT 9,9; "5CORE “¡S; V* 
20-N 



cíadamente- la desenfrenada oleada se 
lleva al pobre náufrago de manera alea¬ 
toria. 

Tiene Vd< 20 salvavidas (variable N) 
y como la tempestad está causando 
grandes estragos por todos los lados, 
sólo dispone de ciento veinte (variable 
T} unidades de tiempo para recuperar 
a los náugragos ( ¡Ahora me acuerdo: 
Se trata del Titanio y con este frío gla¬ 
cial, qué desgracia!). 

Su misión se acaba, por supuesto, 
cuando terminan las ciento veinte uni¬ 
dades de tiempo, o bien cuando se le 
agotan los veinte salvavidas. Entonces, 
el ZX le comunica el número de náu¬ 
fragos recogidos que podrán recuperar¬ 
se de sus emociones. 

La estructura del programa es senci¬ 
lla: las lineas 100 a 170 corresponden 
a la fase de inicialización, el bucle prin¬ 
cipal va desde la linea 200 hasta la 360 
y la línea 400 señala el final del pro¬ 
grama. 

Las principales variables son X (po¬ 
sición de su bote salvavidas), $ (núme¬ 
ro de rescatados), B (posición aleatoria 
del naufragio) y AS que consta de 
veintinueve rayitas -los veintinueve es¬ 
labones de la cuerda que tomó la pre¬ 
caución de anudar al salvavidas (ÍNo 
se le olvidó, claro!}, 

Claro que este programa resulta li¬ 
mitado pero está hecho con intención, 
lo cual le permite caber en 1 Ko. 

Seguramente tendrá Vd. que añadir 
un poco de memoria para dibujar lo al¬ 
to del Iceberg, y no hablo de la parte 
escondida siquiera. 

Michel Go/ay. 
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LA UNICA Y DEFINITIVA SOLUCION 


EN COLOR 


COMPATIBLE CON SU SISTEMA 


1456/LI2. P.V.P.: 106.000 



Modelos 

Standard 

Media 

Alta 

Standard 

Alta 


Pixels 
x 585 
x 585 
x 585 
x 585 
x 625 


1436/LS1. P.V.P.: 77.000 


TODOS LOS MONITORES CUS IN 
CLUYEN: 


¿QUIEN NECESITA UN MONITOR EN 
COLOR7 


¿POR QUE ELEGIR UN MONITOR CUS? 


Sólo la gama CUB de Microvitec, es suficientemente 
completa para cubrir la compatibilidad de casi todos los 
micro ordenadores del mercado. 

Estos magníficos monitores británicos, son ios únicos 
elegidos por el Gobierno inglés para usarlos en las es¬ 
cuelas primaria y secundaría de todo el pala. 

Nuestra gama de monitores de resoluciones standar, 
media y alta, más los modelos PAL/RGB. son compati¬ 
bles totalmente con IBM PC/PCjr, APPLE Ü/Ue/IM, SIN¬ 
CLAIR SPECTRUM/QL COMMQDORE 64/VIC 20. DRA¬ 
GON 32/64, ORIC, BBC. ACORN ATOM, ATAR!, ACT 
APRICOT, SHARP, ITT, TANDY. ADVANCE, CROMMEN- 
CO 601, LYNX, TEXAS INSTRUMENTS T 99/4A y mu¬ 
chos más. 

Piense, cuando tome su decisión final, que sólo Jos 
CUB de Microvitec le puedan proporcionar la mayor ca¬ 
lidad, rendimiento y fiabilidad al mejor precio. 


* Garantía total por un ario. 

* Chasis aislado para máxima seguridad 

* Interruptor de potencia para un mejor rendimiento. 

* Mfnimo error de convergencia esencial para visoali- 
lación de textos gráficos. 

* Diseñados para introducir los standsrs reconocidos 
de seguridad (Le. BS41S). 

* Chasis preparado para bajo consumo tía potencia. 

* Componentes de alta calidad para asegurar la máxi¬ 
ma fiabilidad 

* Mando de conexión de potencia, piug y RGB. 

* Diseño práctico, atractivo y moderno. 

* Aprobación por la B-EAB- de nuestros más popula¬ 
res modelos. 

4 La mejor relación calidad-precio. 

* La garantía da una gran firma como Microvitec que 
acaba de ganar el PREMIO REAL AL DESARROLLO TEC¬ 
NOLOGICO 1984 EN INGLATERRA 

IMPORTADO Y DISTRIBUIDO EN 
EXCLUSIVA PARA ESPAÑA: 

multilogic 

Ramón de SantÜlán, 15 
Teif.: 458 74 75 - Madrid-16 
Telex: 42710 FONOTXE 


Por supuesto toda persona que tenga un ordenador. 

Hasta ahora Vd. probablemente usaba su televisor 
doméstico con su ordenador y habrá notado bastantes 
interferencias, especialmente cuando visualiza textos. 
Los televisoras no están básicamente diseñados para 
visualizar datos, ya que están construidos con circuitos 
de codificación y modulación para aceptar únicamente 
las ondas de televisión a través del aire. 

La diferencia entre su televisor y un monitor CUB, es 
que éste último está especialmente diseñado para la vi- 
sualizsdón de textos y gráficos, ésto se evidencia inme¬ 
diatamente en ta imagen estable y ciara que reduce no¬ 
tablemente al esfuerzo de la vista. 

El monitor CUB está preparado para desarrollar las 
capacidades sofisticadas de visualización da los orde¬ 
nadores da boy y del mañana. 


MICROVITEC 


NITORES COLOR 























































VIC 

20 

. 


>1 


J 


Realizad nuevos 
caracteres en vuestro 

VIC-20 


Aquí tenéis algunas astucias para la programación 
de nuevos caracteres, que os permitirán utilizar 
las posibilidades de la alta resolución del VIC-20. 
Su principio es cargar una parte de la memoria 
viva con unos números adecuados, para generar 
caracteres, y esto en la versión de base con 3,5 
KO de memoria viva. 


El programa que os propone* 
mos es un ejemplo de las posibili¬ 
dades del VIC-20 en el dominio de 
la alta resolución. 

No utiliza propiamente dicho la 
alta resolución,sino que simplifica 
la programación de nuevos carac¬ 
teres , Esto merece algunas expli¬ 
caciones. 

El generador de caracteres del 
VIC-20 está en el momento de 
inicializar el ordenador, en memo- 


VARIABLES 
DEL PROGRAMA 

A() Tabla conteniendo ios va¬ 
lores atribuidos a las líneas 
del carácter en construc¬ 
ción. 

N Número de caracteres 
construidos. 

/ Línea en curso. 

J Columna en curso. 

AB Teda apretada. 

RB Respuesta a otro carácter. 


ría muerta. Es posible, sin embar¬ 
go colocarlo en memoria viva, ac¬ 
cediendo a uno de los registros 
del circuito integrado encargado 
de la vísualizacfón del VIC-20, 

Su dirección es la 36869. 

Se puede hacer una pequeña 
experiencia muy simple si tecleáis 
POKE 36869,220 return, los ca¬ 
racteres se volverán dependientes 
del contenido de la memoria viva. 
Para volver al modo habitual, 
apretad simultáneamente las te¬ 
clas RUN/STOP y RESTORE, 

Se comprende en seguida que 
basta cambiar una parte de la me¬ 
moria viva con los números ade¬ 


cuados para obtener todos los ca¬ 
racteres que se quieran. 

Tal y como están codifrcados los 
caracteres en el caso del VIC-20 es- 
tán contenidos en una matriz de 8 
x 8, es decir que se pueden obte¬ 
ner 2 a la 64 caracteres distintos, 
un número de 19 cifras. Como 
cada carácter está constituido de 
puntos, habrá que cambiar estos 
puntos para definir los caracteres. 

Un punto encendido 
es un uno, un punto 
apagado es un cero 

Para comprender la manera de 
codificar los puntos, tenemos que 
retroceder a la notación binaría. 
La notación binaria es lo que se 
llama en matemáticas una base, 
como la base 10 que es la que se 
utiliza normalmente. Esta base es¬ 
tá caracterizada por no utilizar 
más que dos cifras, e! 0 y el 1. 


Se comprende cómo están co¬ 
dificados los puntos, un punto en¬ 
cendido es un 1, un punto apa¬ 
gado es un 0, 

La matriz de caracteres está 
dividida en líneas y columnas, 
ocho en cada categoría. Cada lí¬ 
nea está codificada por un núme¬ 
ro comprendido entre 0 y 255 am¬ 
bos incluidos, esto es 256 posi¬ 
bilidades Este número depende 
de los puntos encendidos en esta 
línea. Corno lo hemos visto prece¬ 
dentemente, un punto encendido 
corresponde a un 1 . pero este pun¬ 
to está igualmente caracterizado 
por su columna (o rango). Se cal¬ 
cula entonces ia cifra de la línea 
como sigue: se atribuye a cada 
punto un número igual a 1 si está 
encendido, o a O si no lo está. Esta 
cifra se eleva enseguida a la po¬ 
tencia del rango, empezando en 0. 
Después se calcula el valor de ca¬ 
da línea, sumando los distintos 
valores atribuidos a cada punto 
que compone esta fínea. 

Se plantea enseguida el proble¬ 
ma de saber dónde colocar este 
número. 

En el generador de caracteres 
los caracteres están en el orden 
de su código de pantalla. 

Cada carácter está codificado 
por la cadena de los ocho núme¬ 
ros representando las ocho líneas 
que le forman. 


DESCRIPCION DEL PROGRAMA 

L.10 Dimensionamiento de AB , llamada para borrar la memoria. 
L.l 5 Puesta a cero de A(). 

L.20 Orden de dibujar el casillero. 

L.30 Posicionamiento del cursor. 

L 40 Lectura de la tecla apretada . 

L.50 Si es return se calcula el nuevo valor de la fínea. 

L.6Q Si es un espacio se avanza el cursor , 

¿ 70 Si estamos en fin de línea cambiarla. 

L.80 Si estamos ai final de un carácter f guardar el carácter. 
L.90 Borrado del cursor. 

L.l 10 Principio del bucle de almacenamiento de un carácter. 

L.l20 Carga de los valores correspondientes ai carácter. 

L> Principio del bucle de puesta a cero de la memoria viva de 

10000 ia casilla 6144 a 7680. 
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REBBV. 


10 DIfiñ<7) : H=0‘GOTO10008 
15 FQRX=@TQ? : )-0■NEXT 
20 1=0:J=0:GOTO1500 

30 PQKE7600+22#I+ < M60: POKE38400+22ÍÍI+JJS 
40 GETR* 

50 IFfi*aCHR$a3)THEMR(I)=fl(n+2t<7-J) :POKE7680+22*I+J J 160: J=J+1 
60 IFñ*=" "THEHP0KE7680+22#I+J,32:J=J+1 


70 IFJ>7THENI=I+l:j=0 

80 IFI>7THEHÍ10 

90 PÜKE76S0+2g#l+J,32 

100 GOTO30 

110 FGRX=0TO7 

120 P0KE6144+S)*8+X J RfX) 

130 NEXT 

140 INPUT' ! GTRG CRRRCTER" iR$ 

150 IFR*= ,, Sr , THENN=NM GOTO 15 
160 IFR* a "NO"THEN180 
170 GQTQ140 

180 PRINT'TJ" : P0KE36869i254 : N=N+l 


190 ENE 

1500 PRINTM L0 

1510 PRINT" L1 

1520 PRINT" L2 

1530 PRINT" L3 

1540 PRINT" L4 

1550 FRINT” L5 

1560 PRINT" L6 

1570 PRINT" L? 


1580 PRINT" HIIIIII 
1590 PRINT"01234567 
1600 GOTQ30 
10000 F0RX-S144T07S88 
10010 POKEX í0 : NEXT 
10020 GOTO20 

REfiBY. 


Un POKE 36839,254 coloca en 
generador de caracteres a partir 
de la posición 6144 

El primer carácter estará repre¬ 
sentado por el contenido de las 
posiciones de memoria siguientes 
6144, 6145, 6145, 6147, 6148, 
6149, 6150 y 6151. 

Pasemos ahora al modo de em¬ 
pleo. Después de dar RUN, no 
preocuparse si no pasa nada du¬ 
rante algún tiempo. El programa 
vacía 1 536 octetos de la memoria. 

El casillero que aparece repre¬ 
senta la constitución del carácter 
(8 por 8}. 

Precisemos que el primer ca¬ 
rácter reemplaza la Ñ, el segundo 
la A, el tercero la B, etc. 

Para formar un carácter hay 
que dar return para marcar un 
punto, y sobre la barra de espa¬ 
cios para saltárselo. Para probar 
el aspecto final de los caracteres, 
responder no a la pregunta de si 
queremos otro carácter, entonces 
el programa termina y podremos 
simplemente tecleando ver cómo 
quedan los caracteres. Para con¬ 
tinuar basta con dar stop/restore 
y GOTO 15, con lo que podemos 
almacenar el siguiente carácter. 
Si queremos corregir un carácter 
ya pasado, antes del GOTO 1 5 dar 
N=X donde X es el código de 
pantalla a corregir. 

Con este método podemos 
almacenar hasta 192 caracteres, 
pero es más que suficiente y en la 
práctica sólo estás limitado por tu 
imaginación. 

Francisco Dervaux 




\1o'Preocuparos 
que e.\ resto 
viene detrás 
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16 K 



GflRflimzflnos 

EL CREC1H1ENTO 

DE TU 



Si tienes un SINCLAIR ZX SPECTRUM de 16 K y deseas ampliarlo a 48 K ahora puedes 

hacerlo con toda garantía. 

Acude a tu Concesionario Autorizado INVESTRONICA y en breve espacio de tiempo 
dispondrás de tu Spectrum con MAS POTENCIA 
Además INVESTRONICA ampliará por tres meses la garantía de tu equipo,' 
independientemente de la fecha de adquisición y te obsequiará con una 
Cinta de Demostración de 48 K. 



IMPORTANTE: 

Al adquirir Loe productos SINCLAIR exíjala 
TARJETA DE GARANTIA INVESTRONICA. única 
válida en iodo el territorio nacional y llave para 
cualquier resolución de duda o reparación. 
INVESTRONICA no prestará ningún servicio 
lécroco a todos aquellos aparatos que carezcan 
de la corresponden!e garantía. 
DE VENTA EN CONCESIONARIOS 

autorizados. 


Amplía, 

ahora, tu SPECTRUM 
de 16 K a 48 K. 

Con garantía... 
Con más garantía. 


















Micompsa 


General Perón, 32. Madrid-20, Ttel. 456 2211 




BASE 64A 


RAM: 64 Kb libres usuario, ampliables 
basta 192 Kb. 

ROM: 32 Kb: 4 Kb para monitor, 18 Kb 
lenguaje BASIC, 10 Kb para editor de textos. 

Teclado ASCII, tipo máquina de escribir 
72 teclas can teclado numérico adicional. 

Alta fiabilidad del teclado (diez millones 
de pulsaciones garantizadas). 

Doble generador de caracteres: Americano 
y Español. 

Instrucciones BASIC directas A 

con una sola tecla. 

Mayúsculas y minúsculas. 






íes' 0 ' 

de su familia 


Alta resolución gráfica: 280 x 192 puntos. 

8 conectores para ampliaciones. 

80 columnas, pal coior, CP/M con Z-80, 
comunicaciones RS-232, etc. 

15 colores. 

Compatible con más de 10.000 programas 


L/iaatíSü 


1 . 


* MONITOR 12" fósforo verde 
con base orieníable de 
alta resolución, 33.000 ptas. 


NOTA: Abrir la tapa no 

vulnera la garantía. 


TENER UN GRAN 
ORDENADOR NO 
v CUESTA MAS , 


118.500 pts. 




















































El juego del globo 


Maniobra con habilidad, hágase con el máximo de 
puntos y no deje de vigilar su indicador de combustible. 


Descripción de! juego: 


El objetivo del juego es capturar el 
máximo número de proyectiles blan¬ 
cos (que aportan puntos) esquivando 
los proyectiles negros, (que destruyen 
el globo) y posarse finalmente en el 
islote del que se partió. 

El jugador deberá hacer despegar al 
globo y controlarlo gracias a unos 
quemadores (cuyo combustible es un 
gas de! que conocemos la cantidad 
disponible en cada instante) y que se 
accionarán pulsando la tecla de espa¬ 
cio —teniendo en cuenta que el globo 
subirá cuantas veces se apriete dicha 
tecla (ojo a las teclas auto repetitivas) 
y bajará cuando haya cumplido ei nú¬ 
mero de subidas que se le hayan indi¬ 
cado—Este efecto de acumulación 
puede resultar molesto al no ser ins¬ 
tantánea la respuesta al soltar la teda 
de espacio, pero se corresponde con 
lo que ocurre en la realidad. 

Por otra parte, el globo es arrastra¬ 
do por Ja fuerza del viento que sopla 
con dirección variable en cada una de 
las tres zonas de la franja atmosférica 
a las que nuestro aeróstato puede ac¬ 
ceder, estando simbolizadas las direc¬ 
ciones del viento por flechas a un 
lado de la pantalla. 

Variando pues la altura se podrá 
modificar también la velocidad hori¬ 
zontal, siendo recomendable mante¬ 
nerse siempre centrado en Ea pantalla 
preveyendo un posible agotamiento 


del combustible (partimos con qui¬ 
nientas unidades, y el ordenador nos 
avisa cuando nos quedan solo cien; 
un aporte especial de trescientas uni¬ 
dades nos será dado como premio 
cuando alcancemos los 1.500 prime¬ 
ros puntos, y más tarde los 3.000). 

En caso de rebasar los límites dere¬ 
cho o izquierdo de la zona de juego el 
globo volverá a aparecer en el extre¬ 
mo opuesto de la pantalla. Alcanzan¬ 
do un tope de altura el programa im¬ 
pedirá seguir subiendo. 


Descripción dei programa 


Como la mayoría de los video jue¬ 
gos este programa tiene una estruc¬ 
tura de bucle en el que tras una inicia- 
¡ización de los parámetros y e! dibujo 
de fondo se suceden. 

— bucle general: recogida de datos 
del teclado y variación en memoria de 
la posición del globo 

— llamada a la subrutina de dibujo 
del globo 

— movimiento y creación de 
proyectiles 

— llamada a la subrutina de impac¬ 
tos y puntos 

— vuelta a! principio, en caso de 
no terminar la partida. 

El programa trabaja en modo texto 
(80 columnas, 25 filas) y utiliza ca¬ 
racteres gráficos. 

Estos se van sumando a los contro¬ 


les de cursor en cadenas de caracte¬ 
res que se imprimen de una vez en 
pantalla, con lo que la imagen perma¬ 
nece clara y sin serpenteos molestos. 
Para mejorar 3a velocidad del progra¬ 
ma es conveniente traducir estas ruti¬ 
nas de dibujo a lenguaje de máquina. 

La aleatoríedad del juego viene de 
la existencia del generador de núme¬ 
ros aleatorios (RND) que hemos íni- 
cializado tomando como parámetro 
para la función RAND0MIZE los se¬ 
gundos en el reloj que lleva incorpo¬ 
rado la tarjeta de memoria. 

El resultado es mejor que sí intro¬ 
dujéramos otro parámetro, pero no es 
en absoluto necesaria esta sofistica¬ 
ción. 

Por último haré a continuación un 
breve repaso de las variables y códi¬ 
gos ASCII utilizados. 

• GB $: dibujo del globo. Cadena 
de C. con controles de cursor, 

• CX, CY, VX, VY coordenadas y 
velocidad del globo, 

• GR1 (J) matriz columna de 5 ele¬ 
mentos que contiene los colores de 
fondo, bajo forma de códigos ASCII 
los tres primeros son caracteres con 
tres tipos de punteado, y los dos 
otros blancos. 

(Sentencia n* 610). 

• ASCII: 028: cursor a la derecha, 
029: cursor a ia izquierda, 030: cur¬ 
sor arriba, 031: cursor abajo. 


Pablo Cuesta Diego 
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J. O REM í********** *********** * *************** * 

20 REM ***# JUEGD DEL. GLOBO ********** 

25 RETI ***************************** ** *-■ ** *** * 

30 REM **** COPYRIGHT r E3. «utor y ********** 

35 REM **** EL ORDENADOR PERSONAL ********** 

40 REM **************** * *.#** * * * * * * * * * * * * * * * * * * 

50 REII-Iniciad rae i ór 

60 CLEftR 
70 D1M GR 1 ¡5) 

80 DEF FNCOL (CY)—GRX < INT ( <CY-1) /5> +1) i DEC FNVIEN ÍCYÍ =VV dN7 d C ■+7 >/5) ) 

90 DIN P X < 6 > s DIM PY(6);DIN CPS(6):CLSsKEY OFF 
100 CX1-35:CX=75:CY=15:VX=0:VY=0:EAS-SuO:SCÜRE=Ü 
110 T «VAL (RIGHT * ! T1 ME* ,2) ) : RANGO? ¡I ZE T 
120 GOSLJ& 130 íSOTO 15)0 

130 LOCATE 22, 1:LET FF£=STRING4 .33,196) 

140 BA*»FF*+STRING* <10,219 > +FF*>: PRINT BA*íRE7URM 
150 LOCATE 1,1 
160 FÜR J=1 TÜ 5 

170 REAL) X : ABs= " 11 : GR1 <J > =X : IF X=0 THEN GüTO 200 
1 SO AB$=STRINGf<80, X) 

190 PR i NT AB* ; Afcí; ABí>: AF.í; AE¡$; 

200 ¡MEXT J 

210 FOR 1 = 1 1 Ü 6: READ PY d ) , F'X d ) : NEXT I 
220 RESTORE 

240 LOCATE CY,CXiGGSUB 640:G0SÜB 130 

250 MI- M*«=INPÜT* < 1) : JiJ*-*’ “ i IF MEM* " " THEM GOTO 250 

260 3LIÍ=vJU4-dN-.EY*: JUS>=RÍGHTS < JUt, 1) : IF JÜ*=" " AND GAO>0 AND CV O THEN LET VY=- 

1 : GAS—GAS—10 ELSE IF CY=0 AND GA5>V AND Jt *=•* " THEN VY-OsSOUNr 751,1 EL SE 77=1 
270 CY=CY+V7:JU*='“ 

230 IF CV = 15 THEN GOSUB 640:Q0T3 5/0 
290 LET CX=FNVIFN<CY>+CX:CX1=INT*CX) 

300 IF CX<1 THEN LET CX=¿&¡Oi=6Sí GOTO 32. 

310 IF CX>68 THEN LET CX=2:CX!=2: SOTO 320 ElSF GOTO 340 


320 SOUND 1046 . 8 . 


iOUND 98 ?. 769 •». . Si SONREÍ 


* l or a ti i , 


330 FÜR 3-1 TÜ 4 : AB*=BTP. I Nbí í .10 , BR1 < J ) ) i ABí ■* BTF 1 NS * ié C, ?£H hEí : FRINT ABt i AB£ 

; ABí; AE>$; ABí; : MEXT J 

340 R=TNT ( <RND* 150-59) /50> »RR“IHT<F¡«ID*6> +1; IF RR 7 THEN GOT.O 360 ELSE i»RR 
.350 IF SGN (VVU>X>SGN<R) THEN W<I>*VV<I>+5GN<Ri 
360 IF VV d )=0 THEN LET VVd>=SGNÍR> 

370 GÜSUB 640 

330 REM-PROYECTILES 

390 NP=IN T (RND*6 

400 IF PX(NP)=0 THEN PX<NP>=1iSQSUB 790:VPÍNP)=4 ELSE IF PX(NP)=81 THEN PX<NP)=7 
2:VP<NF>=-4:GQSUB 790 

410 FOR 1=1 TO ó:IF PX(J)=0 OR PX(I)=81 THEN GOTO 540 
420 SS= FNCOL (F'Y (I) ) : SS**CHR*ÍSS) 

430 IF F'X < I > >68 AND VP < I) >0 AND PX(IX=EO THEN LOCATE PY (I) , PX (I ) : PR INT SStssPX 
<I> =81s GOTO 540 

440 IP PX d > >0 AND F'X <1X5 AND VP<IXO THEN LOCATE PY (I) , F'X < I) i PRINT SS*iPX(I)=0 
.‘GOTO 540 

450 IF PXÍIKl OR F'X (I) >30 THEN GOTO 500 

460 IF VP(I)+PX<I)>80 THEN M=BO ELSE M=VP<I)+PX(I) 

470 IF VPd >+PX <1 XI THEN M=-l ELSE M=VP(I)+PX(I) 

4S0 FOR T=F'X (I )+VF'd ) /4 TO M STEP VF'd>/4: IF SCREEN <PY < I) , T) OSS THEN GOSUB 820 
* GOTO 500 
490 NEXT T 

500 IF BG=1 THEN GOTO 570 

510 IF PXd)=0 OR PX < I) =81 THEN GOTO 540 
520 IF VP d)>0 THEN D = 5:DD = 29 ELSE D=3:DD=2S 

530 PX (I )-FX ÍI ) +VPÜ) e IF BGOi AND PX ( I) >0 AND PX(D<81 THEN LOCATE PY(I) jPXÍI) ¡ 
PPÍ=CPÍCI)+STRÍNG* ÍD,DD>+SSÍ:PRINT PPtz 
540 NEXT I 

550 LÜChTE 24 9 20: PRINT +, SCORE r ': SCO; : LOCATE 24,50: PRINT ,s 6AS H ;GAS; TF 

";:IF GAS 100 THEN FLAV "MB AP ir : LOCATE 24,60: PRINT " ¿ PELIGRO 1 11 ; 

560 GOTO 260 

570 LOCATE 1,20;IF CX>31 AND CX<40 AND EG< 1 THEN PRINT " FELICITAC IONES i ATERRI 
ZAJE CORRECTO, ¿OTRA PARTIDA T " : PLAV 11 ÜiDFDBDEFGOOB" ELSE LOCATE 3,30: PRINT "PERDI 
STE. ¿OTRA PARTIDA?" : PLA Y 11 OOBAGF 41 

580 LOCATE 2, 25; F'RINI "(TECLEA RESPUESTA V PULSA RE7 URN > " ; 

590 INFUT Oí: G!^--LEFT$ (Qí, 1 ) : IF Q9= J, B" GR Oí-= [ 5" THEN GOTO 50 ELSE CLSrKEY ON; END 
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DATOS 


600 
610 
*20 
630 
640 
650 
R$C 
660 
670 
630 
ó 90 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
910 
S20 
830 
840 
I NT 
050 
860 
870 


, 81 


31 > 



REM—-— ----——— 

DATA 178, J 77, 176, 000* 000 
DATA 3,0,5,81,8,O,10,81,13,0,15, 

REM-----—-DIBUJO DEL GLOBO 

LOCATE 1,1:CC4=CHR*<31 > +STRING$(10,29)¡GB*=5TRING*íCX1,28)+STRINGf(CY,31) 

IF VV>0 THEN C1=FNCÜL (CY+1): W$=STRING$ í 10,01 > :GB*=GB$4U¡$+CC* ELSE GB$=GBí+CH 


+C$+CC* 


C1 “FNCÜL i CY + 2) : u/$ = CHR$ (C1) +CHRÍ (01 ) ; GE*=C¡B*fWI+ " +CC<fc 

C1 =FNCOL. (CY+3) : C$=CHR* (Cl) : W*=3TRING* (8, ) : GES=5 bÍ+C$ + W* + C$+CC$ 

Cl-FNCOL CCY+4) : CS=CHR$ (Cl) : W*=STRING$ (6, ‘1“) : GB*=GB*+Cí^W',bW*+ “ W' 

C i = FNCÜL. (CY+5) : W*=STR 1NG* i 4 , Cl ) : GE*=GB*+N?+ " "+CHR$ (Cl) +W$+CC£ 

Cl=FNCQL (CY+6) i W*=STRINB* (4, Cl ) : GB$=GB$+W*+ ,f gg ai +W*+CC* 

1F VY<0 THEN Cl-FNCOLÍCY+7);W$=STRING*(10, ClT: Sfc*=GBS+W* 

PRINT 6B&$ : GOSUB 130 
VI$—SIRINGA (2,31) 

FÜR 1 = 1 TÜ 3:LOCATE íI-1)*5 + 3, 1 i ÜN SGN(VV(I))+2 BOTO 750,760,770 
PRINT M < 11 GOTO 780 
PRINT .** " ; : GOTü 780 
PRINT " > "; 

NEXT I ;RETURN' 

□C=lNT (RND*5):0N 00 GOTO 800,800,310,810,81O 
CFS> (NR) = " 11 : RETURN 

CP$ÍNP)= i sRETURN 

REM—-—-—- IMPACTOS Y PUNTOS 

IF 500=1500 QR 500=3000 THEN GfiS*=GA5+3G0: PLAY ”DDD M * /, 

IF CR$ ( I) = THEN SCO =500+100: SOUND 25Ü,1: 50UND 680, Ie LOCATE PY (I ) , FX (I ) : PR 
SS*:IF VP íIT>0 THEN PX(I>=0:RETURN ELSE FX(I)=31;RETURN 
IF CPÍdJO 11 11 THEN RETURN 

LOCATE PY (I > , PX í I ) -4: PRINT 11 i i i ¡ SANG !!?!!” = BG=Í 

POR 2=1 TO 360 STEP 1S:SE=500+SIN(2)*200:SOUND SE,.5:NEXT ZíRETURN 




•• ■ 1 




























con su economía 




COMPATIBLE 


' 


CONFIGURACION BASICA 

UNIDAD CENTRAL 

• Microprocesador 8088, de 16 bits, 
477 MHz. 

• 8K Bytes ROM (Ampliables a 48KB) 

• 256 K Bytes RAM 

DISPLAY 

• 8 páginas de texto, de 40 x 25 
caracteres, 4 páginas de 80 x 25,8 
colores en borde y 16 para la 
pantalla 

• Gráficos de 320 x 200, con 4 co 
lores, 640 x 200, en blanco y 
negro 

SALIDAS VIDEO 

• Video compuesto 

• TTL - RGB 

• TV 


TECLADO 

• Ergonómico 90 teclas 
12 de función 

4 definibles por usuario numé 
rico independiente 

UNIDAD DE DISCO 
MPF-V.PC 

• 2 Driver Floppy Disk con 360 KB 
cada uno 


MPF-V.XT 

• 1 Driver Floppy Disk con 360 KB 

• 1 Disco Winchester 10 MB 


DISPOSITIVO DE SALIDA 

• Interface de RS232C 

• Interface paralelo Centronics 

• 5 slots de salida compatible con 

IBM PC™ 

SISTEMAS OPERATIVOS 

• MS-DOS™ V2.ll (Incluido) 

• CC P/M-86™ Concurrente Multi- 
tarea, ventanas de video PC-Mo- 
de (Incluido) 

• PC-DOS™ (soportado) 




■HElÉialHi 


MS DOS 2*0 n marea regí «trida da Mitro «olí Inc. CCP/W 00 «* miren registrada da Digital Rmaieh Inc. 
PC-DOS i IBM PC ton miren registrada* da Intarnalloml Butlneu Machine* Gorporallan. 
















































Enseñe 
al ordenador 
geografía de España, 
y él se encargará 
de que sus lujos 
la aprendan jugando 


El aprendizaje 
tiene dos fases. 
Primero debe 
adquirir los 
conocimientos la 
máquina (por 
supuesto a partir 
de lo que el 
hombre sabe). 
Una vez que los 
asimila, puede 
recordarlos para 
siempre, y 
convertirse a su 
vez, en maestro 
en el tema 
(limitadísimo) 
para el que ha 
sido adoctrinada. 

Tomando como 
base la división en 


Introducción 

La estructura de la informa* 
ción en forma de árbol (Figura 
I a ) fué ya tratada en el número 
1. El almacenamiento de las pre¬ 
guntas y respuestas sobre geogra¬ 
fía va a realizarse sobre un árbol, 
que en el programa BASIC se al¬ 
macena en una tabla (figura 1 b), 


y en la memoria del ordenador 
como una lista. (Figura 1 c). 

El árbol tratado es un árbol 
dicotómico, en que, en cada nu¬ 
do, pueden tomarse dos y sólo 
dos alternativas. El árbol termina 
en “hojas” y éstas se caracterizan 
por ser la información final y te¬ 
ner como valor de los apuntado¬ 
res SI y NO, cero. 



c) Lista 


Elemento 

No 

Si 

Información 

1 

2 

3 


2 

4 

5 


3 

0 

0 


4 

0 

0 : 


5 

0 

0 



b) Tabla 



Figura 1. Arbol, Tabla, Lista. 


provincias de 
España, se ha 
estructurado un 
programa capaz 
de aprender y 
utilizar sus 
conocimientos. 


QUIERE RECURRIR A CONOCIMIENTOS PREVIOS (SI ó NO)? SI 
ESTA EN LA PENINSULA (SI ó NO)? NO 
ES UNA ISLA (SI ó NO)? SI 

SE TRATA DE MALLORCA, ESTA DE ACUERDO (SI ó NO)? SI 
QUIERE SEGUIR (SI ó NO)? NO 

QUIERE SALVAR LA INFORMACION EN DISCO (SI ó NO)? NO 
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El sistema con el que usted crecerá 


Los ordenadores personales de 
Spectravídeo, gracias a su 
& perfecto diseño y gran 
wL facilidad de ma- 

■ nejo h se 

^ j pondrán 

entera- ^ 

mente en 
sus manos 
desde el momento 
que los desembale. Y, 
aún más, son suficiente¬ 
mente capaces > amplSables co¬ 
mo para cubrir todas las necesida 
des durante mucho tiempo. 


BASIC extendido de Microsoft, integrado, convierte a Spectravídeo en los primeros ordenadores verdaderamente 
programables y asequibles del mercado. 

Extraordinaria memoria. 32 Kbytes de ROM. ampliables a 96 Kbytes; y 32 ó 80 Kbytes de RAM, ampliables a 256 
Kbytes. 

Expansión diagonal. Un sistema de 14 periféricos plenamente soportado. Incluyendo el adaptador de juegos 
Colecovisión. Unidad de expansión de 7 slots. controlador de disco flexible, cassette, interface para cartucho, etc. 

Gráficos avanzados, El sistema SV ofrece 16 colores en alta resolución y, más importante aún. 32 sprites programa- 
bles que permiten unas impresionantes posibilidades de control de animación en pantalla. 

Otras muchas características atractivas. Tales como un microprocesador Z80A con un rápido (3.6) reloj interno, 
síot para la conexión de cartuchos, diez teclas de función programables por el usuario, tres canales de sonido (8 
octavas por canal), perfil bajo y estilizado diseño. 

TABLA DE COMPARACION DE FUNCIONES CON DISTINTAS MARCAS 


SPECTRAVIDEO SPECTRAVIDEO 
SV- 328 SV' 31 S 


APPLE 

¡ÍE 


ATARI 

800 


COMMODOÁE BBC 

84 MÜDEL B 


DRAGON 

32 


EL MAS 
VENDIDO 
hasta AHORA 


CAPACIDAD DEL ORDENADOR 

HÜM INCORPORADA 

32 k 

32 K 

16K 

1W 

2CK 

Í6K 

16K 

16K 

? 

AMPL IARL F A 

96L 

96 K 

? 

m 

? 

64X 

7 

mbasic incorporado 

SI 

Sí 

SI 

ADICIONAL 

NO 

NO 

SI 

NO 

RAM INCORPORADA 

S0k- 

32K' ' * 

64K 

4BK. 

64K 

32< 

32K 

16K 

ampliarle A 

256k” 

256K‘ 1 

B4K 

NO 

N/A 

3ÍK 

64K 

ABK 


características DEL TECLADO 
NUMERO DE TECLAS 

TECLAS DEFINIRLES POfl ÉL USUARIO 
PROCESO DE TEXTOS 

GRAFICOS |DESDE TECLADO! 

TECLAS MAYUSCULAS Y MINUSCULAS 

87 

10 

si 

si 

SI 

71 

10 

Si 

51 

SI 

63 

> 

NO 

NO 

81 

61 

4 

NO 

SI 

51 

66 

8 

NO 

SI 

Si 

73 

10 

NO 

SI 

SI 

53 

7 

NO 

SI 

51 

40 

} 

NO 

51 

CARACTERISTICAS DE JUEGO V SONIDO 

SI 

SI 

NO 

SI 

NO 

NO 


NO 

hanuras oe cartuchos separadas 

Si 

JOY5TICK INCORPORADO 

NO 

$1 

NO 

NO 

NO 

NO 

NO 

NO 

COLORES 

16 

16 

*5 

120 

16 

16 

9 

S 

RESOLUCION (P1XELS1 

256**92 

256*192 

230*180 

320*192 

320x200 

256*640 

266*132 

266*195 

SPRITES 

32 

32 

N/A 

4 

8 

? 

16 


CANALES DE SONIDO 

3 

3 

1 

4 

3 

1 

3 


OCTAVAS POR CANAL 

S 

8 

4- 

4 

9 

3 

6 

3 

ENVOLTURA A D S R 

£1 

SI 

NO 

NÚ 

SI 

SI 

NO 

NO 

CAPACIDAD DE LOS DISCOS 

2 56K 

258K 

H3K 

94£ 

17ÜK 

10QK 

? 


COMPATIBILIDAD CON CP/M 

Iprograma* standard di 80 eoii/rnnai) 






Sí 

NO 

NO 

CP/M 2 2 

SI 

SI 

¡NO"" 

NO 

NO""* 

CP/M 3.0 

$1 

SI 

NO 

NO 

NO 

NO 

NO 

NO 

MSX 

SI 

SI 

NO 

NO 

NO 

NO 

NO 

NO 


Microsoft n una marca regí*rada ó» M¡cro»h Corporal Ion 
CP/M, una mire* registrada da DiflUal Rwaarciv Inc. 

M k disponible* con CPV 2.2. má* 16 X de soporte gráfico 
24Ú K disponibles con CP/M 3.0, más 16 K de soporte gráfico 
[6 k disponibles, más 16 k de soporte gráfico 
Apple II jeepea con una tarjeta de modificación de 40 ó 80 columnas CP\1 
Comodore 64 acepta 40 columna* CPA4 
Dalo no confirmado 


• Garantizamos el mantenimiento de nuestros equipos. 


La* «pecific acionai #»lán sujetas a cambios sin pro vio aviso 

Comparación efectuada en febrero 34 



DISTRIBUIDOR EXCLUSIVO PARA ESPAÑA 

Sor Angela de la Cruz 24, Madrid-20 

Telfs. (91) 279 21 85 * 270 01 93 - 279 18 OI 


DELEGACION: Arribau, 6V entlo. Barcelona-! 1 
Tlf, (93) 254 65 48 



















Planteamiento 


El programa gestiona el árbol 
en dos modalidades. La primera 
recorriéndolo y mostrando la 
información contenida en él. La 
segunda introduciendo nueva in¬ 
formación, con lo que ésta opera¬ 
ción conlleva. ¿Y qué conlleva?. 
Pues el cambio de los apuntado¬ 
res SI y NO de la hoja (elemento 
terminal) que se va a matizar con ¡ 
una nueva pregunta. 

Parte de un árbol mínimo con 


I 

2 

3 

ESTA EN LA PENINSULA? 

2 

0 

0 

CEUTA 

3 

0 

0 

ZARAGOZA 


para evitar los problemas de crea¬ 
ción inicial del árbol. De esta ma¬ 
nera el programa tiene en la tabla 
elementos para hacer la primera 
pregunta y dar la primera res¬ 
puesta. Si la respuesta es válida 
todo bueno. Si no lo es puede 
declarar. 

“Me rindo, si no es A es que 
piensa”. 

Aquí empieza el proceso de 
aprendizaje. Le decimos la pro¬ 
vincia que pensábamos es B, y 
nos pide un elemento de diferen- 
ciador entre las dos provincias. 
Este concepto diferenciador, será 
la pregunta que realice en la si¬ 
guiente utilización. Como el ele¬ 
mento diferenciador entre A y B 
puede no quedar claro a quien se 
aplica, nos pregunta sí A tiene el 
elemento diferenciador, para de 
no ser así, aplicarlo a B (lo que se 
traduce en la generación de los 
enlaces adecuados). 

Enriquecido el sistema con un 
nuevo dato, o acertada por el or¬ 
denador, la provincia que pensá¬ 
bamos, nos pregunta si deseamos 
continuar en el juego. De ser SI, 
se comienza de nuevo la adivi¬ 
nanza de una provincia. De ser 
NO, se nos pregunta si queremos 
guardar la “sabiduría” en disket- 
te, para utilizarla en una ejecu¬ 
ción posterior. En cualquier caso, 


ELEM 

NO 

Si 

CONTENIDO 

1 

2 

3 

ESTA EN LA PENINSULA? 

2 

14 

15 

ES UNA ISLA? 

3 

4 

5 

ESTA EN EL MAR? 

4 

12 

13 

ES LA CAPITAL DE ESPAÑA? 

5 

6 

7 

ESTA MUY AL SUR? 

6 

9 

8 

TIENE MAR MENOR? 

7 

0 

0 

CADIZ 

8 

0 

0 

MURCIA 

9 

10 

11 

TIENE FALLAS EN SAN JOSE? 

10 

0 

0 

CARTAGENA 

11 

0 

0 

VALENCIA 

12 

0 

0 

ZARAGOZA 

13 

0 

0 

MADRID 

14 

0 

0 

CEUTA 

15 

0 

0 

MALLORCA 


Figura 3. Volcado de la tabla. 


10 REH PROGRAMA GESTOR DE ARBOLES DICOTOMICOS 
15 REM APLICADOS AL ESTUDIO DE LA GEOGRAFIA 
2G REM EL ORDENADOR PERSONAL 
25 REM 

30 REfl POR MIGUEL SOLANO 
40 REM 06 ¡03:92 
50 REfl 

90 RÍ=CHRÍ(13 í 
100 G0SUB1000 

110 PRINfGUIERE RECURRIR A CONOCIMIENTOS PREVIOS "f 

111 GOSUB9800 

120 IF 1=1 THEN G0SUB 2000 
130 P=i:R=0 
135 PRINT"3" 

140 PRINTTÍ(P);¡G0SUB98QQ 
150 R=EfPrI) 

160 IF E<R,0)=OGOTO2O0 
170 P = R 
1G0 GOTO 140 

200 PRINT"SE TRATA DE ";T$(R); N , ESTA DE ACUERDO '*; 

201 G0SUB98Q0 

220 IF 1=1 GOTO 405 

250 PRINT "ME RINDO, SI NO ES "íTÍÍR);", EN QUE PIENSA 
260 INPUT Ní 

270 PRINT"QUE DIFERENCIA A ";Tí(R>!" DE "¡NÍS" -¡ 

280 INPUT Dí 

290 PRINTTÍ(R)¡;Oí::G0SUB9800 
350 TÍ(LÍ=TÍ(R) 

355 Tí(L+1> =Ní 
360 E(R,0>=L+I 
365 E(fi,1) =L-1 +1 
370 Tí(R)=DÍ 
380 L=L+2 

400 PRINT"GRACIAS POR UN NUEVO DATO, "; 

405 PRINT"(!UIERE SEGUIR " 1 ¡GOSUB9800 
410 IF 1=1 THEN 50T0130 

450 PRINT "QUIERE SALVAR LA INFORMACION EN DISCO "; 

451 GOSUB9SOO 

460 IF 1 = 0 THEN PRINT i GOSUP.3000: END 
470 GOSUB25QO 
480 GOSUE30QO 

990 END 

991 REM 

992 REM 

993 REM 

994 REM 

1000 REfl RUTINA DE INICIALIZACION 

1001 REfl-- 

1010 DIM EílOG,l>,T$UOO) 
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< mercial: BASE DE DATOS • PRO- 

CESADOR DE TEXTOS • CONTABILIDAD \ 

CONTROL DE ALMACENES • ETIQUETAS 
GENERADOR DE NOMINAS • TIENDAS DE CAL¬ 
ZADO • FACTURACION • VIDEO CLUB • CURSO 
COMPLETO DE BASIC, ETC., ETC., ETC. 

... Y los mejores juegos existentes en el mercado mundial: 
AJEDREZ - BATALLA NAVAL - EL AHORCADO - SIMULADOR DE 
VUELO - ATTACK - CAVE HUNTER - ETC., ETC., (HASTA 300 

JUEGOS DIFERENTES) 

¡¡Todos disponibles en CASSETTE y en DISQUETE de 5 1/4"!!. 

Solicita, sin compromiso, relación de sofware, libre de todo gasto. 


__DE VENTA EN DISTRIBUIDORES AUTORIZADOS 




ID S 



Informática y desarrollo de Sistemas, S.A. 

IMPORTADOR EXCLUSIVO 

** Españoleta,25 
g- Madrid4 
g Telf41030 64 


CODERE BARCELONA, S, A, 

BERLIN, 50 - 52 
230 61 05 - 239 50 06 
BARCELONA 29 












imprime la tabla de enlaces t 
(L,2) y la de preguntas y respues¬ 
tas T$ (L) siendo L el número de 
elementos. 

Al iniciar el juego, podemos 
hacerlo recurriendo a lo aprendi¬ 
do en el juego anterior, o bien 
con la memoria en blanco. • 

Programa. 


Figura 4. Arboldkotúmrco correspondiente a ta tabla. £1 programa principal está 

contenido en las líneas 10 á 990 
y hace uso de subrutinas. 

La subrutina que comienza en 
1000 inicializa el árbol y asigna 
valores. 


1020 L = 4 

1030 E(l,0>=2!EU,i)=3:TÍ<l> = "ESTA EN LA PENINSULA" 
1040 E(2rO)=C);E(2,l)=ü:Tt(2)=" CEUTA 11 
1050 E(3fQ)=0¡E(3j1) =0:Tí<3>'"ZARAGOZA" 

1100 PRINT"3" 

1990 RETURN 

1999 ftEPI 

2000 REA CARGA DE DISCO 

2001 REA-—-- 

2010 DOF'ENtt 130 f "GEOGRA" f DO 

2050 INPUTttl30,L 
2060 F0R K= 1 T0 L 

2070 INF UTH1301 £(K r 0),E(K,1),Tí(K> 

2080 NEXT 
2090 DCLOSEA130 
2490 RETURN 
249S REA 

2499 REA 

2500 REA SALVADO A DISCO 

2501 REA - 

2510 0F'EN2,8,2, "80!GEOGRA,S. W" 

2520 PRINTH2iL í Rí f 
2530 F0R K-1T0L 

2540 PRINTH2,E(K,0>;RÍ:E(K,1>íR$!Tí(K>FRi; 

2550 NEXT K 
2560 CLOSE 2 
2990 RETURN 

2999 REA 

3000 REAftUTIRA DE LISTADO DE LA TABLA 

3001 REA--- 

3002 0F’EN4.4 ! CAD4 

3003 F'RINT"ELEM"i"NO","SI"."CONTENIDO" 

3004 PRINT 

3005 FOR K=1T0 L-l 

3010 PRINT K,ECK,0),£ (K, 1 >,Tí < K) í 
3012 IF E(K > 0) = 0 THEN PRINT¡GOT0 3020 
3014 PRINT" ?" 

3020 NEXTK 

3030 PRINT"YA LA HA VISTO " !iG0SUB98D0 
3040 RETURN 
3099 REA 

9800 REA RUTINA DE SI 0 NO 

9801 REA.—.. 

9810 INPEJT" (SI 0 NO) ";S$ 

9820 SÍ=LEFT$(Sí,1) 

9830 IF Sí="N" THEN I'OíRETURN 
9840 IF S$="S" THEN 1=lJRETURN 
9B4 5 IF SÍ-="C N THEN I*=2! RETURN 
9850 PRINTCHRÍf?)}¡G0T09810 
9997 REA 


En 2000 se toman los datos de 
diskette (secuencial). 

En 2500 se salvan los datos a dis¬ 
kette. 

En 3000 se listan las tablas. 

En 9800 se codifica la rutina que 
siempre pregunta y válida por el 
SI y el NO. 

Ampliaciones. 

Sobre el esquema que ha pre¬ 
sentado y fiel a mi línea de dar 
ideas sobre las que desarrollar 
programas más complejos, realizo 
las siguientes sugerencias. 

a) Al llegar a un pregunta dada, 
que se nos proponga SI, NO ó 
MATIZAR. Si se elige la 3 a 
vía, se creará un nuevo nudo, 
insertándolo antes de la pre¬ 
gunta recién formulada, que 
permitirá un retoño adicional. 
Han de gestionarse los enlaces. 

b) Admitir árboles n-tónicos, es 
decir con n posibilidades o re¬ 
toños en cada nudo. Este pro¬ 
blema es algo complicado y si 
en dos meses no está realizado, 
propondré la solución. 

Nota. 

El programa ha sido ejecutado 
sobre un CMB Modelo 8032 de 
Commodore. 


MigueI Solano. 
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Un modelo para cada necesidad 


Un precio para cada economía 

Compatibles Apple 



Microordenador GOLDEN II 
48 K. Memoria ampliadle. 
Z. 80 opcional. Compatible 
Apple 89.000 Pías. 


Microordenador SPRING 48 K 
Memoria ampliadle, Z-80 
opcional 80.000 Ptas, 


Multiprogramador de 
EPRONS: LEP 1200 para grabar 10 
EPRONS a la vez para las 2716, 2732, 
2732A, 2764A, 2516, 2532, 2564, 
68766, 27128, o cuafquier otra que 
sea compatible. 


AMI 304 

Compatible Apple con 256 KRAM- 
mieroprocesador 8 bit con bus de 
16-80 columnas incluido. 


16 Bit compatible IBM, 

CPU 808 B-2 DRlVES-carta para -co- 
lor-Monitor B/N color 128 KRAM ex^ 
pandible a 256 K. 


Manuales y sistemas operativos en español 


Monitores 12" y 9" verde o 
naranja 29,600 Pta$, 


Phloppies extraplanos 
diversas capacidades 
Tarjetas opcionales 
accesorios 


Fichero 50 discos 5 1 /4’ 
3.500 Pías. 


APPLE-COMMODORE-SINCLAIR-COMPATIBLES AMI-256 


IEESA 

MICROTERSA 

C/ Migue! Yuste, 1 6. Tel. 204 51 98. 
Telex: 49249/ MADRID-28037. 

Se sirve a provincias. Distribuidores. 
Consulten sus precios. 


Y muchos complementos más 
ÍES DIFÍCIL, PERO SIMO LO TENEMOS LO 
BUSCAMOS PARA ÜD. 

¡SIN RECARGO! iiY ADEMAS SERVIDO DESDE 
MADRID!! 


BOLETIN PE PEDI DO 

Nombre __,_____ 1" r Apellido.... 

2 o Apellido.........-.........".. 

Calle...Piso.Ciudad.Prov, . ...... 

□ Adjunto talón conformado ni^m. Banco 

_ Con cargo a mi tarjeta visa num Pías. 

_ Envió contra reembolso con gastos a mi cargo 

□ Solo información. 


CANTIDAD 

CONCEPTO 

PRECIO/U 

TOTAL 

















1 































progmmaaon 


Pánico 

en el fondo del mar 


Se encuentra Vd. al mando de un submarino que 
posee un tubo lanzatorpedos. ¿Su fin? Abatir la 
mayor cantidad posible de adversarios. Tranquil í* 
cese: a falta de espacio intergaláctico, atravesará las 
marejadas de la afta resolución del VIC 20. 


süb/mari/tíoí enimigos rú¿kaba¿\ por p$rtiA 4 AáJn^sidc 

qv'i&áik púfdh Sáfame#htJitdpltfiQ (fre /Ute hdrtA CáJt/sabgmes 
niaÁÁfts Mú. dtspOUÚK d Jan Jar /os tü'ipedrt puafodo .íAM Pu/PO 
Qíga/un úüy\ ¿MÓfiwer tetttdajm.,. * 



Situado en el fondo del mar, está 
Vd, en posesión de un arma que le per¬ 
mitirá destruir tres tipos de enemigos: 
un helicóptero (sobrevolando el mar, 
por supuesto) lo que le supondrá 100 
puntos, dos barcos por los que se bene¬ 
ficiará de 70 puntos, y un submarino 
gracias al cual ganará 200 puntos. 


En cada pasada el submarino depo¬ 
sita una mina con el único fin de ha- 
cerle perder 15 puntos, pero Vd. obtie¬ 
ne en tal caso un torpedo de más (dis¬ 
pone inicialmente de sesenta y seis 
torpedos). Si le acierta al submarino 
todas las minas presentes en la pantalla 
desaparecen. 


Para evitar el tiro en ráfagas, un test 
verifica que Vd. no haya tirado tres 
veces sucesivas desde el mismo sitio, en 
cuyo caso el cañón permanecerá inacti¬ 
vo ¡tendrá que desplazarse para poder 
utilizarlo normalmente). 

El tiro del último torpedo provoca 
¡a aparición en pantalla de su puntua¬ 
ción definitiva, así como el fin del 
juego si no ha podido sobrepasar los 
1.500 puntos necesarios para jugar una 
vez más. 


Un programa con o sin 
mando de juegos 


El programa, tal y como está escrito, 
necesita el empleo de un mando de 
juegos (CBM o Atari); pero la tabla 1 
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1 P0KE36879,29 : PRI NT" ^JMMDÍWKfiSlftíFiiC I L= /F/" 

2 FRINT'KS 3 aíSí#»iCIFICIL= /B/ u 

3 P=PEEK<19?> : IFP=18 THEN OO=0 ; GGTO9 
5 IFP=42THEN0G=1 : GCT09 

7 G0TC3 
3 PRINT’\T 

10 P0KE36869,255 : PGKE52,28■P0KE56,28 

11 IF 00=1 7HEN CLR : 00=1 

12 IF 00=0 THEN CLR : OO=0 

13 POKE36878,10 

20 ñ=7168 : FCR1=RT0ñ+511 : POKEI,PEEK <1+25606 >:NEXT 
30 FORL=07O1ii : REflBF = POKEfi+L,F = NEXT 
48 BfiTRl,0,e,32,119,32,0,9 
45 DRTB0,3, 7 ,15 255,114,63,31 
50 DRTR3,3,3,127.255,213,255,127 
55 DRTR255,16,56,100,239,124,40,124 

69 DRTR0,192,224,240,255,78,252,248 
65-DETR128,128,128,254,255,171-255,254 

70 DRTR16,16,16,16,56,254,254,254,0,16,16,9,6,16,16,0 
75 DRTR0,82,62,252,63,122,54,16,128,81,42,4,0,9,6,0,0 
77 DRTfll,138,64,28,62,28,0,9,16,16,16,56,56,56,0 

79 BRTR9,8,3,127,7,63,21,31,0,8,144,166,192,252,88,240 

80 U=37154 : V=37137 ; W=37152 : Z=8109 : S=7834 : 0=0 11=8186 
85 F0RR=38818T038839 : POKER,2 : NEXT 

87 FORR=8120TOS186•POKER,1i=P0KE39726+R,3 : NEXT 
30 F0RR=7S56T07877:POKER,9•P0KE36729+R,6 = NEXT 

100 POKEU,127 : V=-<(PEEK(W)RND128)=0) : X=<<PEEK<V)RND16)=0) : POKEU,255 
119 D=1 : Z=Z+X+Y : IF2<89990R2>8118THEN200 
115 IF2102THENQ=0 ; P0KE21,32 
129 P0KE2,6 

122 21=2 : T=PEEK < V)RND32 
125 IFQ>2THEN209 

139 IFT032THEN : D=2 : Q=Q+1 : GGT0600 

200 OND1GOTO250,300,400 

250 POKES,32 : S=S+M : POKES+36720,4 

260 IFS=78340RS=?855THENP0KES,32 ; GOTO506 

280 POKES,1+F1 : POKES+M,1+F2 = POKES+M+30720,4 

299 Dl=l : GOTO450 

300 POKES,32 : S=S+M = POKES+39720,2 

3101FS=78780RS=7899THENP0KES,32 : GOTO590 
320 POKES,2+F1:PCKES+M,2+F2 : POKES+M+30720,2 
350 IFS=CTHENP0KEC-22,10 
369 D1=2 : GOTO450 

406 P0KE3687?, 200 : POKES, 32 '• POKES-*-1,32 : S=S+1 
4101FS=7833THENP0KE368?7,0:GOTO506 


420 POKES,0 = POKES+1,3 : D1=3 : P0KE36877,0:POKES+30721,7 

450 ONDGOTO180,610 

500 N=RND(1) : M=INT<RNB(l)+.5> 

510 IFM=0THENM=-1 F1=3F2=0 : G0T0536 
520 F1=3F2=3 

525 IFN<.25THEND1=1 : S=7854 : M=-1 F1=12 : F2=11 ; G0T0456 

539 IFNC.5THEND1=1=S=7845-9*M : G0T0459 

540 IFN<.75THEND1=2 : S=7889-9*M : 0=2-220 = GOTO450 
559 D1=3 : S=7812 : M=1 ; GOTO450 

609 R=2 : B=2 : IFII>8186THENI1=8186 
605 11=11-1 : IFI K8120THEN1500 
607 POKEII,32 

619 FORTR=8TOOO : P0KE36877,220^1FR<7900THEN659 

620 R=R-22 

630 POKER,7:POKER+30720,7 = P0KE36877,0:D=2 
648 NEXT ; GOTO200 
658 SI=R-S : SE=R-S-M 

655 IFPEEK(2-242>=10THENSC=SC-15:POKEII,11 : 11=11+1 P0KE2-242,8 : G0SUB845 

668 IF22*INT(SI/22)=SITHENSR=PEEK < S) : GGSÜB806 ; GOTO680 

678 IF22*INT(SE/22>=SETHENSÑ=PEEK<;S+M> GOSUB860 

638 FCRR=Z-22TOZ-220STEP-22 

698 POKER,32 : NEXT:P0KE3687?, 8 GOTO166 

S86 IFPEEK<Z-242)=16RNB(Sfi=20RSft=5 > THENSC=SC+86 

«i 2 IFSfi=2CRSP=5^HENSC=SC + 260 bU¿UB¿56 Gú T ú¿4ü 

815 IFSn= 10RSfi=40F-Sñ= i 2 ÜRSh= 13THENSC=SC+70: GOT0840 

828 IFSn=8CRSFi=3THENSC=SC+100 

*48 POKES,S ; POKES+36720,7 = PÜKE36878,15 

845 F3RL=6TQ5 : P0KE36S75,220 : GOSUB906 ; P0KE36875,0 : GOSUB900:NEXT 

858 POKEZ-242,9 : P0KE36878,10 : GOTO1000 

980 FORfi=1TÜ33 = NEXT = RETURN 

950 IFB1=2THENF0RR=7856T07877:POKER, 9 : NEXT 

960 RETURN 

1000 FQRfi=7717T07723•POKER,32 ; NEXT 
1018 3C$=STR$íSC) : L=LEN(SC*> 

1820 F0RR=1T0L 

1630 P0KE7717+fi,RSC(NIBí(SC$,R,l))+128 
1040 P0KE33438+R,0 : NEXT = RETURN 
1500 PR INT’TT : P0KE36869,240 
1510 PRINT ,: 3CSSIIl!a^ TANTEO = "SO 

i=20 IFSO 1500THENPRINT“ 5Wlfilffi®ÍMH-66 MUNICIONES" : FORX=0TO4000 ; NEXT : RESTORE : G0T09 
1550 PRINT"IÍHWWWMDTRR VEZ ?S" 

1560 GET ñ* 

1570 IFRí> ,! 0"THEN RUN 
1575 IFRSON “ THENGOTO 1560 
1589 ENB 


RERBV. 


fROCRWMWCÍOtfDE 



EMBAI 

un nuevo Ibro de la colección 

PROCESO DE unos 


POR JESUS SANCHEZ IZQUIERDO 
Y FRANCISCO ESCRIHUELA VERCHER 

UN LIBRO QUE ENSEÑA LOS CONOCIMIENTOS DE UNO DE LOS mmmmmmm—mmmmmm 

LENGUAJES MAS SIMPLES Y A LA VEZ MAS EFICACES DE PRO¬ 
GRAMACION: EL BASIC 


-3x§- 


I rfAGA SU PEDIDO A PROCESO DE DATOS. 

UN LIBRO EMINENTEMENTE PRACTICO EN QUE CADA PASO ¡ FERRAZ 11 - MADRID - 8. Precio 99C-PTAS 


QUEDA MATIZADO POR UN GRAN NUMERO DE EJEMPLOS RE¬ 
SUELTOS. 

• UN LIBRO COMPLETO, REDACTADO EN FORMA CLARA Y CON¬ 
CISA. 

• UN LIBRO ABSOLUTAMENTE NECESARIO PARA TODOS LOS 
USUARIOS DE ORDENADORES QUE REQUIERAN DE ESTE TIPO 
DE LENGUAJES CONVERSACIONALES. 

• SIN DUDA, EL LIBRO QUE ESPERABAN LOS USUARIOS PRESEN¬ 
TES Y POTENCIALES DEL BASIC. 


Deseo recibir.ejemplares 

Sr. 

Empresa.'. 

Cargo .. 

Domicilio.* 

Población. 

Provincia . 

Forma de pago: 

CU Talón adjunto a nombre de Prodace^.A. 

O Giro postal ñ° .Fecha 

O contra reembolso. 
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le permitirá utilizar en su lugar el tecla¬ 
do sín r por ello, alterar la esencia del 
juego. 

Por otra parte, y con el fin de no 
sobrepasar la capacidad de memoria 
del sistema (3583 octetos libres), no se 
ha incluido ningún comentario en ei 
programa. (Puede consultar la tabla 1 
en la que se incluye una breve descrip¬ 
ción del mismo)* 

Tal vez esté Vd. sorprendido deJ im¬ 
ponente tamaño dei programa para un 
juego de esta naturaleza. Podría, en 
efecto, ser más "económico" insertar 
una rutina de visualización y desplaza¬ 
miento de caracteres en un bucle FGR 
... NEXT y utilizarla sucesivamente 
para cada adversario (cuatro enemigos, 
el cañón, la ráfaga), Pero este método 
presenta la gran desventaja de necesitar 
una batería impresionante de pregun¬ 
tas del tipo IF ... AND ... THEISI o IF... 
OR THEN, lo que se traduciría en 
una menor velocidad de ejecución. Por 
ello se ha escrito una rutina propia a 
cada objeto. 

Si desea modificar los gráficos, 
puede recalcular los argumentos de los 
datos (líneas 40 a 79), siguiendo las 
indicaciones de la tabla 2. 

El microprocesador6502 "entiende" 
un carácter como una sucesión de 
ocho números X (0 <X <255) siendo 
cada número X la representación deci¬ 
mal de un octeto. He aquí el procedi¬ 
miento a seguir para obtener un nuevo 
carácter: 

- Trazar, en una hoja de papel, una 
matriz de 8x8 casillas, 

- Desarrollar en esta matriz el dibujo 
que queramos, teniendo en cuenta que 
una casilla sólo puede estar vacía o 
llena (0 ó t). 

- Por cada línea, hacer la suma de las 
ocho casillas que la componen. Una 
casilla i tiene valor 0 si está vacía, o el 
valor 2^ si está llena (0 <i <7). La lí¬ 
nea 0 es la de arriba, la columna 2 o es 
la que está más a la derecha. 


Tabla V Pequeños consejos para modificar el programa 
de forma que pueda utilizarse el teclado para 
controlar los deplazamientos y el tiro. 

Linea 

Comentarlos 

80 

quitar U= 37154 : V = 37137 : W =37152 ; únicamente 

100 

reemplazarla por 


P = PEEK (197) ; IFP = 31 THEN Z = Z -1 : GOTO 110 

TQ5 

introducir IF P = 23 THEN Z =Z + 1 

110 

quitar solamente 2 = Z + X + Y : 

122 

quitar sólamente : T = PEEK i V) AND 32 

130 

reemplazarT < > 32 por P = 8 


Tedas a utilizar 

Tecla 

Comentario 

Código 

t 

CRSR 

4 

«-CRSR-^ 

desplazamiento a la izquierda 

desplazamiento a la derecha 

disparo 

31 

23 

8 

Si desea cambiar de teclas, es suficiente reemplazar le 
100, 7 05 y 130 por ios de las nuevas teclas que Vd . e 

i s códigos 31, 23 y 8 de las líneas 
fija. 



Tabla 2: Cálculo de argumentos de los DA TA para 
la modificación de gráficos 

Línea 

Carácter del teclado 
oPOKE X 

Comentarios 

40 

; X=G 

trasera I parte) del helicóptero) 

45 

A ; X = 1 

popa del barco n° 1 

SO 

B ; X =2 

popa del submarino 

55 

C ; X = 3 

delantera del helicóptero 

60 

D ; X = 4 

proa del barco n° 1 

65 

E ; X = 5 

proa del submarino 

70 

F, G ; X=6,X= 7 

cañón, ráfaga 

75 

H, 1 ; X = 8, X =9 

explosión, ola 

77 

j: x= io 

mina 

79 

K, L ; X = 11,X = 12 

popa y proa del barco n° 2 

- Llevar los ocho argumentos a su co- 

Vd. juega ahora. Sí dispone de una 

respondiente DATA, por ejemplo: 

extensión de memoria puede añadir 
todo tipo de fiorituras, como por 

2 7 2 

6 2^ 2 4 2 3 2 2 2 1 2 o 

ejemplo, gráficos más realistas o adver¬ 
sarios más correosos (pulpos gigantes o 
feroces cetáceos). □ 

Linea i 

n = 

octeto. 


Ef valor de esta línea será: Li = Q + 64 

Patrrck LenobJe 

+ 32+0 +0 +4+2+ 0= 102 
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Introducción: 

El presente programa realiza las operaciones 
oportunas para el mantenimiento de una peque¬ 
ña biblioteca (Altas, bajas, modificaciones, 
consultas, búsquedas por titulo y por autor). 
Puede ser útil para controlar el estado de su bi¬ 
blioteca particular. 

Admite muchas mejoras, ya que está realizado 
a modo de ejemplo, por lo cual sólo se incluye 
en cada registro los siguientes campos: titulo, 
autor, editorial y observaciones, aunque se le 
pueden añadir otros, como materia, estante, 
precio, n hojas, etc... 

La forma de fichero es relativo, lo que permi¬ 
te la rápida localización de los datos y su modi¬ 
ficación. Está realizado en el microordenador 
CBM 8032 de Co mino dore y la unidad de disco 
correspondien te. 

Por no tratarse de un programa profesional, 
tanto éste como el fichero se encuentran en el 
mismo diskette, aunque con la oportuna modi¬ 
ficación podrían separarse. 



ELECCION 

DE LA OPERACION 

Como hemos dicho anteriormente, el menú 
de este programa permite realizar las operacio¬ 
nes de Altas, Bajas, Modificaciones, Consultas. 
Búsqueda por título, Búsqueda por autor y una 
última operación para terminar el proceso. No 
obstante, se le podría dotar de otras operaciones 
diferentes, como puede ser aparición en pantalla 
de todos los libros, etc... 


Al correr el programa aparecerá en pantalla 
el menú con todas las opciones posibles, debien¬ 
do elegir una de ellas. Los casos que se presentan 
son los siguientes: 

ALTAS 

Al elegir esta opción podremos introducir 
los datos referentes a nuevos libros que entren a 
formar parte de nuestra biblioteca, escribiendo 
el título del libro, su autor, la editorial y obser- : 
vaeiones (aquí podemos introducir nuestra opi- 
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nión sobre el libro, la materia sobre la que trata, 
el estante en que se encuentra, etc.)- Hay que 
tener en cuenta que el registro está creado con 
una longitud de 254 caracteres y por tanto, la 
suma de los caracteres de estos cuatro campos 
no debe sobrepasar los 254. 

La forma de introducir los datos es abriendo 
el fichero y a continuación dar el número del 
registro que se desea usar para contener la infor¬ 
mación. El programa se encargará de ver si el 
registro existe o no (el fichero está dimensiona- 
do para 600 registros, este número se puede va¬ 
riar dependiendo de las características del orde¬ 
nador) y también de si está ocupado ya o no 
dicho registro. En el caso de que esté ocupado 
no podremos darlo de alta allí, a no ser que 
antes demos de baja el contenido de ese regis¬ 
tro. 

Por último, tendremos la opción de repetir 
la operación, en cuyo caso podremos dar una 
nueva alta, y en caso contrario se cierra el fiche¬ 
ro y vuelve al menú principal. 

BAJAS 

Esta opción nos permite borrar del fichero los 
datos de algún registro, por darse de baja o per¬ 
der alguno de los libros. 

Naturalmente, lo primero es abrir el fichero 
y decirle el número de registro a borrar; una 


vez que se ha comprobado que dicho registro 
existe y que realmente está lleno, pregunta si 
estamos seguros de querer borrarlo; en el caso 
de que la respuesta sea no, aborta la operación, 
y si la respuesta es sí, entonces introduce un ca¬ 
rácter blanco en ese registro. 

A continuación y como vimos en el caso an¬ 
terior, nos permite dos opciones: repetir la 
operación de dar otra baja o cerrar el fichero y 
volver al menú principal. 

MODIFICACIONES 

En el caso de elegir esta opción, podremos 
variar la información existente en uno, varios 
o todos los campos del registro deseado. 

Tras abrir el fichero y dar un número de 
registro válido, aparece en pantalla la informa¬ 
ción contenida en - ese registro. A continuación 
y situando el cursor en el lugar correspondien¬ 
te, se podrá variar la información de los distin¬ 
tos campos. 

Al igual que en los dos casos anteriores, se 
podrá elegir entre repetir la operación y cerrar 
el fichero y volver al menú. 

CONSULTAS 

Hace aparecer en pantalla la información 
contenida en el registro que se le indique. 


2 REM PROGRAMADOR JOSE MANUEL RODRIGUEZ PROLONGO. 16-10-82 
10 REM PROGRAMA DE PRUEBA. ARCHIVO RELATIVO DE UNA BIBLIOTECA 
15 Z*=CHR*<13> 

20 PRINT"3" iPRINTiPRINT «PRINT" OPCIONES" 

30 PRINT«PRINT«PRINT" CA3 ALTAS" 

40 PRINTtPRINT" CB3 BAJAS” 

50 PRINTiPRINT" CC3 MODIFICACIONES" 

60 PRINT«PRINT" CD3 CONSULTAS" 

70 PRINTiPRINT" CE3 BUSQUEDA POR TITULO" 

75 PRINT«PRINT" CF3 BUSQUEDA POR AUTOR" 

77 PRINT«PRINT" CG] FIN DE PROCESO" 

80 INPUT ”JS ELIJA LA OPCION DESEADA">OP* 

90 IF OP*="A”THEN 200 
100 IF OP*="B" THEN 400 
110 IF- OP*="C" THEN 600 
120 IF OP*="D" THEN 600 
125 IF OP*=”E" THEN 200O 
127 IF OP*="F J1 THEN 2100 

130 IF 0P*O”G" THEN PRINT " ^rl»^»■«»^»E RRÜR , ' «GOTO 80 

135 FRINT"3"iEND 

200 REM *****ALTAS***** 

202 DOPEN #1,"BIBLIOTECA",L254,D0 

210 INPUT DE REFERENCIA" >R 

220 IF R>600 OR R<1 THEN PRINT " «IrtfcF EGISTRO INEXISTENTE"«GOSUB1200«G0T0281 
222 RECORD#l,<R> «GET#1,V* 

224 IFVtOCHRX255>THENPRINT"MttREGISTRO LLENO,UTILICE OTRO" «GOSUB1200 «GOTO 
230 RECORD#1,<R> 

240 PRINT«PRINTSPRINT" TITULO"J:INPUT T* 

250 PRINT«PRINT" AUTOR";sINPUT AU* 

260 PRINT«PRINT" EDITORIAL "y iINPUT ED* 

270 PRINT«PRINT" OBSERVACIONES";»INPUT OBS 
2S0 PRINT#l,T*Z*AU*Z*EO*Z*OB* 

281 GOSUB 1100 

282 IF SI=1 THEN 210 
290 DCLOSE#1 

300 GOTO 20 

400 REM *****BAJAS***** 

402 DOPEN #1,"BIBLIOTECA",L254,D0 

410 INPUT DE REFERENCIA" ;R 

420 IF R>600 OR R<1 THEN PRINT " «TOR EOISTRO INEXISTENTE"«GOSUB 1200«GOTO 442 

422 GOSUB 100O 

424 IF VA=1 THEN 442 

426 PRINT' JÜlftOMESTA SEGURO <S/N>";«INPUT SE* 

427 IF SE*="N" THEN 442 

428 IF SE*<>"S" THEN 426 
430 RECORD#1,<R> 

440 PRINT#1,CHR* < 255) 

442 GOSUB 1100 
444 IF SI=1 THEN 410 
450 DCLOSE#l 
460 GOTO 20 

690 REM ♦♦♦♦♦MODIFICACIONES V CONSUL TAS^^* 

602 DOPEN #1,"BIBLIOTECA",L254,00 

610 INPUT " :HI«TO»»*»»»»TO»»«H UriERO DE REFERENCIA" ;R 

620 IF R>600 OR R<1 THEN PRINT 11 IMF’EGISTRO INEXISTENTE" «GOSUB 1200JGÜTO 748 

622 GOSUB 1000 

624 IF VA=1 THEN 748 

630 RECORD#1,<R> 

640 INPUT#1,A*,B*,C*,D* 

650 PRINT«PRINT" TITULO > ";A* 

660 PRINT«PRINT" AUTOR* ";B* 


678 PRINT«PRINT" EDITORIAL» ">C* 

680 PRINTiPRINT" OBSERVACIONES» "jD* 

685 IF OP*="0" THEN 748 

690 print “ aB a eaBmmiMB " «« imput t* 

700 PRINT "HttltllOUU"; «INPUT AU* 

730 RECORD#^* R*** MM ** M **** W 

740 PRINT#1,T*2*AU*Z*ED*Z*0B* «GOTO 748 

748 GOSUB 1100 

749 IF SI = 1 THEN 610 

750 DCLOSE#l 
760 GOTO 20 

1000 REM RUTINA DE COMPROBAR SI ESTA 
1010 VA»^«RECORD#1,<R> 

1020 GET#1,V* 

1030 IFV*=CHR*<255>THENPRINT"BfflfRROR. EL REGISTRO ";R; M ESTA VACIO"«GOTO 1850 
1040 RETURN 

1050 VA=1«GOSUB 1200 «RETURN 
1100 REM RUTINA DE REPETICION 

1110 PRINT" MHUUP ESEA REPETIR LA OPERACION <S/N>" y »INPUT RE* 

1120 SI=0 sIF RE*="S" THEN SI = 1«RETURN 
1130 IF RE*<>"N" THEN 1100 
1140 RETURN 

1200 REM RUTINA DE TIEMPO 
2811210 FOR 1=1 TO 3000«NEXT I«RETURN 

2000 REM ♦♦♦♦♦BUSQUEDA POR TITULO*^*** 

2010 DOPEN#1,“BIBLIOTECA" 

2020 R=0:X=0«INPUT"3flLMJW3UE TITULO DESEA";X* 

2030 R=R+1 

2040 PRINT"3fiSlSlOOFEGISTR0 NUMERO s" jR 
2045 RECORO#l,<R> 

2050 INPUT#1,A*,B*,C*,D* 

2060 IFX*=A*THEN X=X+1«GOSUB 2500 
2070 IF R=600 THEN 2075 

2074 GQTO2030 

2075 IF X=0 THEN PRINT"ffifiNO EXISTE LIBRO CON DICHO TITULO"«GOSUB 1280 

2076 GOSUB 1100 

2077 IF SI=1 THEN2020 

2078 DCLOSE#l«GOTO20 

2100 REM ♦♦♦♦♦BUSQUEDA POR AUTOR***** 

2110 DOPEN#l,"BIBLIOTECA" 

2120 R=0 «X=0 »INPUT " TTOTOH aUE AUTOR DESEA" ;X* 

2130 R=R+1 

2140 PRINT-asSSUaOFEGISTRO NUMERO »";R 
2145 RECORO#l,<R> 

2150 INPUT#1,A*,B*,C*,0* 

2160 IFX*=B*THEN X=X+1«GOSUB 2508 
2178 IF R=600THEN 2175 

2174 GOTO2130 

2175 IF X=0 THEN PRINT " «TON O EXISTE LIBRO DE DICHO AUTOR"«GOSUB 1200 

2176 GOSUB 1100 

2177 IF SI=1 THEN2120 

2178 DCLOSE#l«G0T028 

2500 PRINT" HfiHiTITULO > "jA* 

2510 PRINT"SKJAUTOR t ";B* 

2520 PRINT"ttEDITORIAL« ";C* 

2538 PRINT"SMOBSERVACIONES« ";D* 

2540 PRINT "SHHIMJtFARft CONTINUAR PULSE CUALQUIER TECLA" 

2558 GET E* >IF E*=""THEN 2550 
2560 RETURN 
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— ALGORITMO DEL TROCHA oe »8U0X6CA- 




Busos? píi^iL 
“titulo / 


>ar Bajas 


Saos? datos 
en pantalla 


epetir 


spotir 


repetir 


5 b car datos vi 
pantalla 


Introducir 

titulo 


1H-B 1 




Titulo lauBOado - 
título de regia* 




luto? búa a ado* 

^autor de regia**"* 




Saos? datos 

bu pantalla 


Abrir fichero 


Introducir 
mS&ero de 
refería di 


Introducir 

título 

autor 

editorial 

y obearvaeiooss 


Csrrar fiohoro 


Cerrar fichero 


Introducir 
título 
autor 
editorial 
y observada* ee| 


Cerrar fichero 


Introducir 
n Inter o de 

reforjada 


Cerrar flobero 


Introducir 

autor 


Para ello, se le dice en primer lugar el número 
de registros a consultar, y tras comprobar su 
existencia y que tiene contenido, vuelca la infor¬ 
mación en pantalla. 

Se puede volver a repetir la operación o cerrar 
el fichero y volver al menú, como en los casos 
anteriores. 

BUSQUEDA POR TITULO 

Esta opción permite buscar en el fichero de¬ 
terminado libro dando como referencia su títu¬ 
lo. Esto se hace comparando el título que se le 
indica con el de cada uno de los registros del 
fichero. 

Para realizar esta operación, se abre el fichero 
y se introduce el título a buscar: a continuación 
un contador va dando los distintos valores a los 
registros, con objeto de comparar los títulos de 
cada uno de ellos con el indicado (compara el 
título de referencia con el del registro número 
uno; si no son iguales suma uno al contador y 
lo compara con el del registro número dos y 
así sucesivamente, hasta que coincida con algu¬ 
no). Cuando se encuentra el título deseado, apa¬ 
recen en pantalla todos los datos contenidos 
en ese registro, quedando el programa parado 
hasta pulsar cualquier tecla y entonces prosigue 
con la misma operación de búsqueda, a partir 
del registro en que estaba, por si hubiera otro 
libro con el mismo título. Así se llegaría hasta 
el último registro. 


También aquí se puede volver a realizar la 
operación o cerrar fichero y volver al menú. 

En cada momento aparece en pantalla un 
número, que irá variando y que indica por qué 
registro se va realizando la operación de búsque¬ 
da. Si no hubiera ningún libro con dicho título, 
también lo indicaría. 

BUSQUEDA POR AUTOR 

Al igual que en el caso anterior, esta opción 
permite obtener información del fichero, dando 
como referencia en este caso el nombre del 
autor. 

Las operaciones realizadas son exactamente 
las mismas que en la búsqueda por título, sólo 
que comparando el autor indicado con el que 
contiene cada uno de los registros. 

FIN DE PROCESO 

Esta opción se utiliza cuando, una vez realiza¬ 
das las distintas operaciones sobre el fichero, 
se desea salir del programa. 

Borrar pantalla y dar fin al programa es la 
operación realizada por esta opción. 

Todo lo aquí expuesto queda claramente 
reflejado en el Algoritmo del programa. 

PROGRAMA 

JOSE MANUEL RODRIGUEZ PROLONGO 
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Rally de Montecarlo 
para PC 1500 


Este es un programa que en dos versiones distintas, 
según la memoria disponible, y aprovechando las 
grandes posibilidades gráficas dei PC-1500, simula 
un emocionante Rallye en el que entran en juego 
la habilidad y rapidez del piloto. 

instante y deja el automóvil 
en la marcha más lenta), 


Antes de empezar a describir el jue¬ 
go, vamos a dar los requisitos: para la 
versión corta, basta con la memoria 
de base y para la versión extendida ha* 
ce falta disponer de unos 2500 bytes 
(CE 151 óCE-155). 

Las diferencias entre las dos versio¬ 
nes son mínimas teniendo la versión 
extendida más efectos sonoros y la po¬ 
sibilidad de escoger dos niveles de difi¬ 
cultad. 


DESCRIPCION DEL JUEGO , 

La pantalla queda dividida en dos 
sectores: circuito y marcadores. Se tra¬ 
ta pues de llevar el coche, que aparece 
en la izquierda de la pantalla, a la me¬ 
ta, centro de la pantalla. La zona del 
circuito está dividida a su vez en dos 
mitades escogidas al azar entre cinco 
posibles por nivel. 

El marcador nos índica ía velocidad, 
los puntos que tenemos y los coches 
de reserva que nos quedan. 

El coche se representa por dos pun¬ 
tos consecutivos que recorren la panta¬ 
lla. Se ha optado por no borrar la "es¬ 
tela" del coche por ganar rapidez y 
porque de esta forma se observa mejor 
la trayectoria del mismo. 



DESCRIPCION DEL PROGRAMA 

Línea 

Comentario 

1 

Archivo del record y el nombre del que lo posee. 

10 

Inídalización de! programa. 

20 

Bucle de jugadores. 

50 

Elección aleatoria y dibujo del recorrido. 

60 

Se pinta la bandera de llegada. 

70 

Se pintan los coches de reserva. 

200 

Inicio del recorrido. 

210 

Va a ver si ha habido choque o no. 

220 

Entrada de instrucción. 

230 

Acelerador* 

240 

Freno* 

250 

Freno de mano. 

260 

270 

Ascenso _ 

descenso ^ on ^ amac ^ a a su ^ m " t ' na P ara ver si hay golpe o no. 

290 

300 

310 

320 

1000 

1030 

2000: 

Fin del bucle del recorrido. 

Suma de puntos por final de recorrido* 

Comprueba si todavía nos queda algún coche* 

Si no pasa al siguiente jugador* 

Bucle que nos da quien ha ganado y si ha habido record. 

Se ejecuta sí ha habido golpe: suena una sirena y nos quita un 
coche. 

3000: 

SUBRUTINA para ver si hay golpe o no, y si no lo hay nos suma 

5000 

6000 

pu ntos. 

SUBRUTINA para archivar el record. 

10,000 

CIRCUITOS: 10000 - 10009 difícil NIVEL 0 

■ 

10010^ 10019 fácil NIVEL 1 


MANEJO DEL COCHE. 


Los controles son: 

para subir (girara la izquierda) 
para bajar (girar a la derecha), 
para acelerar, 
para reducir. 

Freno de mano íesnera un 


"Q" 

"A" 
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Al principio de la partida el coche 
sale en la velocidad más rápida. 

Hemos de hacer constar que los 
mandos no responden tan rápidamente 
como se desearía; y os daréis cuenta 
que se tardan unas vueltas partidas en 
cogerle el "truquillo". 

Si se deja la tecla apretada, el coche 
sigue subiendo o bajando. 

Si te estrellas una ambulancia ven* 
drá a recogerte pero habrás perdido un 
coche. 

PUNTUACION. 


La puntuación viene dada por dos 
parámetros: 

— La dificultad del trazado. 

- El tiempo que se tarda en hacer el 
recorrido. 

La fórmula es asi': 

por cada avance del coche: 

P = P + (dificultad del semitrazado 
1 — dificultad del semitrazado 2) * 
NIVEL. 

y por cada trazado recorrido 

P =0P +INT (1/TIME * Q'Ü4h 

Una vez finalizada la competición, 
la máquina nos dá el vencedor y su 
puntuación: y en caso de que la obten¬ 
ga record, nos pedirá el nombre y !o 
archivará junto con la puntuación; pe- 
ro de una forma un tanto original que 
explicaremos más adelante. 

Una vez dada una idea general de 
como funciona el programa (ver pág, 
1} F vamos a describir más detallada¬ 
mente las subrutinas 3000 y 5000 por¬ 
que creemos que tienen especia! inte¬ 
rés. 


SUBRUTtNA 3000 , 


E$ la subrutina que controla en ca¬ 
da avance si nos hemos salido de la ca¬ 
rretera. 

Las variables A4 y A5, tienen el va¬ 
lor del POINT de la primera y de la se¬ 
gunda línea que caen en la vertical de! 
coche pero sin tener en cuenta a este 
último. H y H1 r tienen el mismo valor 
pero ya tienen en cuenta la posición 
del coche. 

Luego restando respectivamente H 
y A4 y H1 y A5 y si el resultado de al¬ 
guna de ellas es igual a 0 esto implica 
que nos hemos salido de la carretera, 
bífurcando a la subrutina 2000. 

En el caso de que ninguna sea 0, se 
procede a sumar los puntos correspon¬ 
dientes. 


SUBRUTtNA 5000. 


Con los descubrimientos que se es¬ 
tán haciendo sobre el interior de la 
PC-150G, ya podemos conocer como 
se guarda un programa y donde (ver 
en n° 15 CONFIDENCIAS DEL PC- 
1500 (II), V aprovechándose de esto 
hemos diseñado una ingeniosa forma 
de guardar datos de modo que no 
se nos borren al hacer un CLEAR; es 
decir modificando mediante programa 
una línea de este (en nuestro caso la 
primera línea). 

El método siguiente: 

La primera empieza en la dirección 
4ÜC5; los dos primeros bytes son para 
el número de línea; el siguiente es para 
longitud de ésta y después de línea en 


sí. Pues bien si en los huecos que he¬ 
mos reservado,, 

1 : B$ = " - - * 16 caracteres" : CS — 5 
caracteres". 

que van B$ desde & 40CE hasta & 
40DE y C$ desde &40E4 hasta &4QE9, 
vamos introduciendo (mediante PQKE) 
los códigos ASCII de los caracteres de¬ 
seados, hallaremos con cierta sorpresa 
que la línea de programase ha modifi¬ 
cado actualizando mediante el siguien¬ 
te bucle el record y el nombre det po¬ 
seedor de este. 

5000 Pide el nombre, 

5010 Da valores a los parámetros del 
bucle y va a la subrutina 6000, 
6000 Toma uno a uno los dos caracte¬ 
res del nombre y del récord; los 
traduce a código ASCII y los 
pokea en la dirección deseada. 


INICIA LIZACION DEL PROGRAMA 

Paso n° 1 RUN 

Paso n° 2 Aparece el récord y el nombre del que lo posee. 

Paso n° 3 ENTER. 

Paso n° 4 Aparece "NUMERO DE JUGADORES". 

Paso n° 5 Introducir este número (cuidado con la memoria que queda). 

Paso n° 6 ENTER 

Paso n° 7 Aparece "JUEGA ELI". 

Paso n° 8 ENTER 

Paso n° 9 Empieza la carrera. 



LISTA DE VARIABLES 

- ALFANUMERICAS. 


A$ : 

Instrucción de dirección. 


BS : 

Nombre del recordman. 


c$ : 

Record. 


- NUMERICAS. 


A 

NIVEL. 


A4 # A5 

POINT sin el coche. 


B 

Posición en el eje Y. 


c 

Coches que nos quedan. 


D 

Direcciones para la subrutína 6000. 

G 

Puntuación del ganador. 


H,H1 

POINT con el coche. 


1 

Posición en el eje X, e índice de varios bucles. 


J 

Jugador* 


L 

Auxiliar: para pintar los coches que quedan. 


M 

Variable para pintar la pista. 


R 

s 

Para las READ de la música. 


V 

Velocidad. 


X 

Indice del bucle de sirena, longitud de los datos en la subrutína 


6000. 

- MATRICIALES. 


P(J) 

Puntos de cada jugador. 


S(M) 

Trozos de la pista. 
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UCLEAR 

;C$= V 

2:PRINT CON 

i* * 

* 3:DATA 87, 125,65 

, 162, 87, 125, 66 
, 162,33, 110 

* 4¡ DATA 76, 140, 93 

, 110, 76, 140, 10 
5, 105, 87, 125 

* 5: DATA 87, 125, 76 

, 140, 87, 125, 10 
5, 105, 1 17, 97 

* 6¡DATA 87, 125, 93 

,110, 105, 105, 9 
3, 110, 105, 105 

* ?:DATA 117,37,10 

5, 105, 93, 110, 1 
05, 105, 117, 97 
10: INPUT "NUMERO 
DE JUGADORES”; 
N: DIM PCN-n,S 


2601 IF P$= ,: P”LET B 
=1NT CCB+1X/2) 
: IF B<1LET B=1 
:GQSUB 3000 
270:IF Ai=”L"LET B 
=B*2:IF B>64 
LET B=64:GOSUB 
3000 

280:CURSOR 18: 

PRINT U;P(J1 
290:NEXT I 
300:P(J)=P(J>+INT 
(l/TItlE *.047: 
WA1T 200: 
CURSOR 18: 
PRINT 
WAIT 0 

310: IF O0GOTO 50 
315:RESTORE 5: 
RESTORE 4: 
RESTORE 3 
320:NEXT J 
1000:FOR J=0TO N- 
1: IF J-=0LET 


<1> 

G=PC0), N=0 

20:FOR J=0TO N-l 

1010:IF PCJ)>=G 

25:FOR 1=110 15: 

LET G=F(J):N 

REAO R, S: BEEP 

=J 

1, R, S: NEXT I 

1020:NEXT J:CLS : 

30:CLS :PRINT ”JU 

WAIT 150! 

EGA EL ”;J+l: 

PRINT "GANA 

CLS 

EL ”J N+1;” c 

40:WAIT 0:L=85, C= 

QN”;G;” PUNT 

5, A=0 

OS” 

45!INPUT ”NIUEL<1 

1030: IF G>UAL C* 

-FACIL;0-DIF1C 

BEEP 3:PRINT 

ILV; A 

"CON NUEUO R 

50:RANDOM ¡FOR M= 

ECORD”:GOTO 

0TO i:SCM)=RND 

5000 

5: GOSUB 10000+ 

1140:END 

a*i0+2*<s(M)-i 

2000:POR X=0TC 3; 

):NEXT M 

BEEP 1,80, 25 

60:A4=63,A5=63: 

0: BEEP 1, 140 

GCURSOR 80: 

,250:NEXT X 

GPRINT "55AA55 

2010:GCURSOR <1+2 

AA55”¡ 

):GPRINT 0¡0 

70:B=8:GCURSOR B: 

;:C=C-1: 

H-71,Hí =H: 

GCURSOR 90: 

GCURSOR 90: 

IF C=4LET L= 

GPRINT L;L;: 

21 


CURSOR 18¡ 
PRINT U;P(J7 
200:BEEP 5,30,60! 
TIME =0:FOR 1= 
0TO 75STEP 2 
210:GOSUB 3000 
220:A$=JNKEYi 
230: IF A$-”G l 'LET U 
¿U-1:IF UÍ0LET 
U=0:WAIT U 
240: IF A$=”A”LET U 
=U+):IF U>5LET 
U=5:WAIT U 
250:IF A$=” ”UAIT 
20:PRINT :U=5: 
WAIT 5 


2020:IF 
5 

2030:IF 
I 

2040:IF 
0 

2050: IF 


C=3LET L- 


C=2LET L= 
C=1LET L- 


C=0UAIT : 
GOTO 310 

2060:SPRINT L;LS: 
RETURN 

3000:H=POINT IOR 
B,Hl=POINT C 
1 + DOR B; 
GCURSOR I 
3010;GPRÍNT HjHl; 


3330: IF C < (H-A4 )~ 
0)OR ((HÍ-AS 
)=0) ) GOSUB 2 
000:RETURN 
3040: P<J1=P(J)+<S 
Í.07+5C 1 ))*( 
NOT A+37,A4= 
POINT U + 2), 
A5=P01NT (1+ 
3 >:RETURN 

* 5000:RESTORE 7: 

RESTORE 8 

* 5010:FOR I-1TO 10 

: READ R, S: 
BEEP 1, R, S: 
NEXT I 

* 5020: INPUT 1 DIFIE 

TU NOMBRE';B 
* 

5030: D=&40CE: X=16 
;GOSUB 6000: 
□-0+22;X=5:B 
$=STRS G: 
GOSUB 6000: 
BEEP 1:END 
6000:FOR I-1TO X: 
POKE 0+1,ASO 
MI Di CBÍ, 1, 1 
>:NEXT 1; 
RETURN 

10000:GPRINT ”8267 
63636B6363G3 
6363787B6363 
6363636F6F63 
636363637B7B 
63636363636F 
6F63”; 

10001:GPRINT '6363 
637373”;: 
RETURN 

10002;GPRINT ”7373 
717171797D7D 
337171736363 
63636747474F 
4F4F4F5F4F4F 
474363737B63 
6363”; 

10003:GPRINT ”6767 
677373”;: 
RETURN 

10004:GPRINT ”7363 
6363676F6363 
63637B717171 
307979716161 
4343474F4343 
434B4B4B7363 

6767 1 '; 

10005:GPRINT ”6767 
676767' j: 
RETURN 

10006:GPRINT ”6767 
677371717D7D 
316163634747 
474F4F5F5F4F 
4F4747677747 
47475F474363 


10007:GPRINT ”7B73 
737373”; : 
RETURN 

10008:GPRINT ”6363 
637B4343434F 
41414141797D 
71614143434F 
4F5F47434363 
73797979737D 
7961”; 

10009:GPRINT ”6167 
676777”;: 
RETURN 

10010:GPRINT ”4141 
414141414149 
494141414141 
414141416363 
636347474747 
636363634141 
4 1”; 

10011:GPRINT ”4141 
-11414141 : 

RETURN 

10012:GPR1 NT ”4141 
414141416161 
616171797971 
616161614141 
414143434347 
474743434141 
41”; 

10013:GPRINT ”4141 
41414141”;: 
RETURN 

10014:GPRINT ”4141 
414141414161 
616141414147 
47474F4F4F4F 
4F4747474743 
436161717171 
71”; 

10015:GPRINT ”7979 
79716141”; : 
RETURN 

10016:GPRINT ”4141 
a 14141494949 
a 14141616121 
717171616167 
676363636363 
636363776363 
63”; 

10017:GPRINT ”6363 
63636363” ; : 
RETURN 

10018:GPRINT ”6767 
63636B636363 
63637B7B6363 
6363636F6F63 
636363637B7B 
63636363635F 
6F63”; 

10019:GPRINT ”6363 
637373”;: 
RETURN 


NOTA: MODIFICACIONES PARA LA VERSION 1K8. 

- SUPRIMIR LAS SENTENCIAS MARCADAS CON •. 

- ESCOGER un paquete de sentencias 10000 ■ 10009 6 10010 -10019: pero escoja la 
que escoja póngale los nímeros de sentencia de la 10000 -10009. 

- Poner la sentencia 5000: INPUT "D)ME TU NOMBRE"; B$. 


NOTA A LOS USUARIOS 
DE ESTE PROGRAMA: 


Para los principiantes es recomenda- 
ble empezar por el nivel 1 (Fácil) y 


acostumbrarse al manejo de los man¬ 
dos. 

Para los expertos, es decir, después 
de haberse echado unas cuantas partí- 
ditas y si quiere que el coche responda 
antes y marche más rápido sugiero que 
quite los controles “A", "Q”; Ji ya 


que cuando se consigue un cierto nivel 
no sirven para nada. 


íñaki Cabrera . 
Víctor Manuel Díaz. 
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guientes procesos: 

IDEFINICION DE LOS CA¬ 
RACTERES: Cada carácter “gi¬ 
gante” está constituido por una 
matriz de 6 x 7 caracteres con¬ 
vencionales. Esta opción permite 
definir cuáles de los puntos de 
esta matriz se deben de “ilumi¬ 
nar” para conseguir cada carác¬ 
ter. 

Como “punto” se puede esco¬ 
ger cualquiera de los caracteres 
alfanuméricos o gráficos que 
disponga el ordenador; para cada 
letra o carácter gigante se puede 
definir un tipo diferente de pun¬ 
to. 


La finalidad del programa BIG-PATTERN es, 
en principio, la de poder visualizar en pantalla 
mensajes en grandes caracteres (o en impresora) 
para su uso, como publicidad en escaparates, 
demostraciones, etc. . ahora bien, las aplicacio¬ 
nes que se puedan derivar resultan numerosas. 
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La aplicación más usual es de¬ 
finir cada carácter gigante con ca¬ 
da uno de los caracteres normales 
disponibles, en gran escala; aun¬ 
que se puede definir cualquier 
gráfico. 

2. - GRABACION EN ARCHI¬ 
VO: Podemos grabar los caracte¬ 
res definidos en un diskette ó 
cassette, evitando el definirlos 
cada vez que carguemos el pro¬ 
grama. En el microordenador con 
que se ha realizado el programa 
(SHARP MZ 80-B) los nombres 
de archivo permitidos son de has¬ 
ta 16 caracteres. 

3. - LECTURA ARCHIVO: Lee 
el archivo de caracteres especifi¬ 
cado y lo carga en memoria má¬ 
quina. 

4. - CONSULTA EN PANTA¬ 
LLA: Indicando los códigos 
ASCII de inicio y fin de la con¬ 
sulta, visualiza en pantalla el 
carácter “gigante*’ asociado a ca¬ 
da uno de ellos; esta opción es 
útil para comprobar los caracte¬ 
res definidos. 

5. - MENSAJES EN IMPRESO¬ 
RA: Una vez entrados los mensa¬ 
jes (de 1 a 255) se codifican a 
“carácter gigante” y se imprimen 
por impresora la cantidad de ori¬ 
ginales solicitados. Se puede se¬ 
leccionar con espacio entre líneas 

Ejecución de Prueba. 


o sin él, y el número de líneas de 
separación entre cada línea de 
mensajes. 

6.- MENSAJES EN PANTA¬ 
LLA: Opción similar a la 5, pero 
por pantalla. 

7 - CAMBIO DE PUNTO: Una 
vez definidos los caracteres, se 
puede cambiar el carácter del 
“punto” de que están formados. 
Seleccionando los márgenes de 
inicio/fin del proceso aparecen, 
a modo de control, los caracteres 
que se van tratando. 

El listado corresponde a la ver¬ 
sión del programa para el micro- 
ordenador SHARP MZ 80 B (Ba¬ 
sic SB 6510). Las sentencias uti¬ 
lizadas son fácilmente “traduci¬ 
bles” a otros tipos de BASIC 
(Microsoft, Comodoro, etc.. .), 
Puede resultar interesante, asi¬ 
mismo, convertir el programa pa¬ 
ra mod gráfico de media o alta 
resolución. 

Otra interesante posibilidad 
para los lectores inquietos sería 
crear un archivo secuencial para 
almacenar grupos de mensajes. 

El número máximo de carac¬ 
teres por mensaje (con pantalla 
de 80 carac. y matriz de carácter 
gigante de 6 x 7) es de 9 por lí¬ 
nea. 


El programa necesita, aproxi¬ 
madamente, 12 Ko. de memoria 
(ejecutado y con 45 caracteres 
definidos). 

Para mayor comprensión del 
programa y facilitar su conver¬ 
sión, os detallo algunas de las ins¬ 
trucciones más particulares con 
una breve explicación de las mis¬ 
mas: 

— PRINT CHRS (6) = El código 
ASCII 6 corresponde al borrado 
de pantalla y cursor a posición 
HOME, (equivalentes = CLS/ 
ERASE/PRINT “ 0 ”). 

— PRINT CHR$(5) = Correspon¬ 
de a la instrucción CURSOR HO¬ 
ME, sin borrado de pantalla. 
(Equivalente: PRINT “ 3] 7 
PRINT CHR$(n), donde n es el 
código correspondiente y varía 
según el ordenador). 

— CURSOR x,y = Siendo ‘x’ e 
‘y’ número enteros, variables nu¬ 
méricas, expresiones ó combina¬ 
ción de ellos. Coloca el cursor en 
la posición indicada por “x” 
—Eje horizontal e “y”— Eje ver¬ 
tical. (Equivale a: LOCATE x,y/ 
PRINT® n/ PRINT TAB (x,y)/...) 

— STRINGS (“X”,n) = Visualiza 
o imprime una cadena de n ele¬ 
mentos “X” (“X” puede substi¬ 
tuirse por una expresión del tipo 
CHR$(x)) Equivale: STRING $ 
(n,“X”), . . .). 

— CONSOLE (expresión) = Es 
una instrucción de control de 
formato de pantalla, las variables 
son: 

— CONSOLE C40: Coloca panta¬ 
lla en modo de 40 caracteres x 
24 líneas. 

— CONSOLE C80: Coloca panta¬ 
lla en modo de 80 caracteres x 
24 líneas. (Estas dos equivalen 
a = WIDTH 80 / PRINT 
CHR$(n), siendo n el código 
correspondiente). 

— CONSOLE S a,b: Define la zo¬ 
na de “scroll” programable en¬ 
tre las líneas a y b. (Nota: Esta 
instrucción no es imprescindi¬ 
ble el programa propuesto. 
Sr solamente, para conse- 
gu una mejor presentación o 
ahorrar instrucciones más 
complejas). 

— GET X$ = Acepta un carácter 
alfanumérico, asociando el valor 
de nulo si no se ha pulsado nin¬ 
guna tecla. (Equivale = XS = 
INKEYS / X$= KIN$. . .) 
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1 REM X# XXXXX*************** XXXXX XXX 

2 REM XXX BIG — PATTERN XXX 

3 REM *****************0************** 

4 REM XXX AUTOR = J.M. Vidal Lacasa XX» 

5 REM XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

6 REM XX* COPYRIGHT EL AUTOR Y XXX 

7 REM XXX EL ORDENADOR PERSONAL XXX 

8 REM XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

9 REM 

10 DIM A*(255,7),S*(6),M<20),Z*(39) 

1S Z3*="+B1R0+B1R0+B1R0":TEMPO 7 
20 Z1*=STRING*(,40):GOTO 800 

100 REM XXXXX DEF. CARACTERES XXXXX 
105 F'RINT CHR* (6) j " ♦ ♦♦♦♦ DEF. "} 

110 PRINT "CARACTERES BIGPATTERN ***** ";Z14 
115 GOSUB 300:GOSUB 350:N=IN=CONSOLE S 7,24 
120 PRINT CHR*(fe);" 1 = I »* O » ESP. XX"; 

125 F'RINT " CR = CORREC. PRINT 

130 PRINT "Mi ASCII = "jN!" m VAR. = 

135 PRINT CHRXÍN);" MI" i CURSOR 0,12 

140 FOR G=10 TO 16:PRINT TAS (15) 5"." : NEXT E! 

145 FOR L=1 TO 7¡CURS0R 15, (11+L) iGOSUB 450: NEXT L. 

150 N-N+HIF N>F THEN 160 
155 GOTO 120 

160 CONSOLE S O,24:GOTO 800 

250 REM XXXXX ENTRADA NOMBRE ARCHIVO XXXXX 

255 CURSOR O,10:INPUT "NOMBRE ARCHIVO (16 c.) = ";NA* 

260 IF LEN(ÑAS)<16 THEN RETURN 

265 MUSIC Z3S:CURSOR 0,10 

270 PRINT 5TRING4Í" ", 80)i GOTO 250 

300 REM XXXXX ENTRADA INICIO/FIN XXXXX 

305 CURSOR 0,4:INPUT "Cod. ASCII INICIO = "JIM 

310 INPUT "Cod. ASCII FIN = "?F 

315 IF (F>255> + (IN>255> THEN 330 

320 IF <F<IN) + (IN<31) THEN 330 

325 RETURN 

330 MUSIC Z3*:GOTO 300 

350 REM XXXXX ENTRADA ASCII PUNTO XXXXX 

355 CURSOR O,10:INPUT "CODIGO ASCII PUNTO = “;CA 

360 IF (CA<31)+(CA>255) THEN 350 

365 PRINT!PRINT CA;" CORRESPONDE A CHR*(CA):PRINT 
370 PRINT " 

375 X*="":GET X*:IF X*="" THEN 375 
3B0 IF X*="S" THEN RETURN 

3B5 IF X*«"N" THEN CURSOR O,10!PRINT STRIMG*(" ",39)sGOTO 350 
390 GOTO 375 

400 X$="":GET XS:IF X*= n " THEN 400 

405 X=ASC(X*):IF X=49 THEN C*=CHR*<Cñ>:GOTO 425 

410 IF X=40 THEN C* = " "s GOTO 425 

415 IF X=13 THEN S=S-2:PRINT CHR*(4)5:RETURN 

420 GOTO 400 

425 PRINT C$;t RETURN 

450 REM XXXXX ENTRADA LINEA DEF. XXXXX 

455 S*=""!FOR S=1 TO 6íG0SUB 400:S*ÍS>=CS:NEXT S 

460 S*=S* (1) +SS(2) +S*(3)+SS (4)+SS (5)+S*(6) 

465 Aí<N,L)=S*:PRINT:RETURN 

500 REM XXXXX GRABACION ARCHIVO XXXXX 

505 PRINT CHRÍ(6>;" ♦ ♦♦* GRABACION ARCHIVO"; 

510 PRINT " BIGPATTERN ♦ ♦♦♦ ";Z1* 

515 GOSUB 250:WOPEN #1,FD1,NA* 

520 FOR A ="31 TO 160: FOR N=1 TO 7 
525 PRINT #1,A*(A,N):NEXT N¡NEXT A 
530 GLOSE:GOTO 800 

600 REM XXXXX LECTURA ARCHIVO XXXXX 
605 PRINT CHR*(6)?" ***** LECTURA "! 

610 PRINT “ARCHIVO BIGPATTERN ***** ";Z1* 

615 GOSUB 250:ROPEN #1,FD1,NA* 

620 FOR A“31 TO í60:FOR N=1 TO 7 

625 INPUT #1,A*(A,N):NEXT N:NEXT A 

630 CLOSE:GOTO BOO 

800 REM XXXXX MENU GENERAL XXXXX 

805 CONSOLE SO,24,C40:FG=0 

810 PRINT " ♦♦♦ B I G - "? 

815 PRINT "P A T T E R N ♦*♦ ":PRINT Zl* 

820 CURSOR 5,5: PRINT " MI - DEFINICION GRAFOS": PRINT 
825 PRINT TAB(5);"»ai - GRABACION ARCHIVO DEF.“:PRINT 
830 PRINT TAB(5);"MP - LECTURA ARCHIVO DEF.": PRINT 
835 PRINT TAB (5) ;" ■!!■ - VISUALIZACION PANTALLA"! PRINT 
940 FRINT TAB (5) ; " M - IMPRESION PAPEL" :PRINT 
845 PRINT TAB (5) ; "KM ~ MENSAJES PANTALLA" : PRINT 


- Instrucciones “musicales”: 
TEMPO 7 = define el “tempo” o 
velocidad de ejecución de la mú¬ 
sica . / MUSIC Z3S = Suena un 
pitido de nota, escala y duración 
definidas por la variable Z3S 
(Ver linea 15 del listado). 

La instrucción MUSIC Z3S no 
es imprescindible, provoca la eje¬ 
cución de 3 pitidos cortos a mo¬ 
do de advertencia si se ha efec¬ 
tuado una entrada incorrecta. En 
la máquinas que lo dispongan se 
puede suplir por BEEP 3. 

- GET X = Similar a GET X$, 
pero con la diferencia de que so¬ 
lamente acepta caracteres numé¬ 
ricos. 

- PRINT/P = Instrucción de im¬ 
presión en impresora, (Equivale 
a LPRINT). Los códigos de co¬ 
mando de impresora del SHARP 
MZ 80 B utilizados en este pro¬ 
grama, son: 

- PRINT/P CHR$ (16): Coman¬ 
do, de impresión en modo de 
separación entre línea y línea. 

-PRINT/P CHR$ (17): Impre¬ 
sión sin separación entre línea 
y línea. 

- PRINT/P CHRS (5): PAPER 
HOME — Coloca el papel al 
principio de página. 

- Otro código utilizado es él 
CHRS (4) (PRINT CHRS (4)); 
provoca el desplazamiento del 
cursor un carácter a la izquierda. 

NOTA; La instrucción INPUT 
de la versión citada de SHARP 
no admite espacios a la izquierda, 
comas, ni comillas. Ello disminu¬ 
ye las posibilidades de entrada de 
cartel al no poder disponer de es¬ 
tos caracteres. Ahora bien, si el 
programa se va a utilizar en un 
Ordenador TRS ó VIDEO GE- 
NIE, se puede substituir el 
INPUT de la línea 3030 por una 
instrucción LINE INPUT/ o 
LINPUT (según versión) que 
aceptan estos caracteres mencio¬ 
nados. 

- Otra instrucción no disponible 
en esta versión de BASIC de 
SHARP es el ELSE (IF - THEN 

- ELSE), por lo que si no se 
cumplen las condicionales se sal¬ 
ta la ejecución a la próxima linea 
de programa. A propósito de 
condicionales, los operadores ló¬ 
gicos utilizados son: * (AND) y 
+ (OR) (ejemplo: ia línea 
(IF (A=0) + (A=l) TEHN 100 
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S5Q PRINT TAB(5);"BEfl - CAMBIO PUNTO" 

955 CURSOR 7,211PRINT “M SELECCIONE OPCION 9H" 

960 X=0=GET X:IF X=0 THEN 060 

965 ON X GOTO 100,500,600,1000,2000,3000,4000 
870 MUSIC Z3Í* GOTO 860 

1000 REM ***** CONSULTA PANTALLA ***** 

1005 PRINT CHR4Í6);" ♦ CONSULTA " f 
1010 PRINT "CARACTERES PANTALLA *♦*♦"!Z1S 
1015 CONSOLE S4,24!GOSUB 300 

1020 FOR A=IN TO F¡PRINT CHRS(6>!"** ASCII = "JAS 
1025 PRINT ’• ** CARACTER = '*; CHRS (A) ; ” **'* 

1030 PRINT:PRINT:PRINTsPRINT 

1035 FOR L=1 TO 7:PRINT TAB<15>;AS(A,L) 

1040 NEXT L:PRINT!PRINT 

1045 print tab( 5) ¡ ■ Mn^B8aE HE^mgw 

1050 PRINT TAB(8)J" <F1 = Finalizar)" 

1055 XS=*' "! GET XSÜF XS="" THEN 1055 
1060 IF ASC(X*)=16 THEN A=F 
1065 NEXT A¡CONSOLE S0,24:G0T0 900 
2000 REM ***** MENSAJES IMPRESORA ***** 

2005 PRINT CHR*(6>J" IMPRESION"J 

2010 PRINT " MENSAJES PAPEL SSSS" 

2015 PRINT Z1S:CONSOLE S3,24 
2020 CURSOR 0,5 

2025 INPUT "SEPARACION ENTRE LINEAS (S/N) ? "jSS 

2030 IF SS="S" THEN PRINT/PCHRS<16)i GOTO 2045 

2035 IF SS="N" THEN F'RINT/PCHRS (17) GOTO 2045 

2040 MUSIC Z34¡GOTO 2020 

2045 FG=1íPRINT:GOTO 3020 

3000 REM ***** MENSAJES PANTALLA ***** 

3005 PRINT CHRS(6)5" ♦♦♦ VISUALIZACION"; 

3010 PRINT " MENSAJES PANTALLA ♦♦♦"JZ1* 

3015 FG=2 

3020 PRINT " MAX.40 ENTRADAS * FINALIZAR = FIN" 

3025 PRINT:FOR J=0 TO 20 

3030 INPUT "CARTEL = ”;ZS:ZS=LEFTS<ZS,9) 

3035 IF Z*="FIN" THEN NM=J-1:J=20:GOTO 3045 

3040 Z*(J)=Z*:NM=J 

3045 NEXT JíGOSUB 3200 

3055 CONSOLE C90:PRINT CHRS(6)5 

3060 FOR V=1 TO NR:FOR ME=0 TO NM:ZS=Z$(ME):LG=LEN<ZS> 
3065 TA=(79-(<LG*6)+<(LG-l)*3)))/2 
3070 FOR X=1 TO LGtM(X)=ASC(MIDSCZS,X,1)):NEXT X 
3075 FOR N=1 TO 7:T=TA:F0R X=1 TO LG 

30B0 IF FG=1 THEN PRINT/P TAB(T);AS(M(X),N)í:GOTO 3090 
3085 PRINT TAEKT)5 A*(M(X),N)5 

3090 T=T+9!NEXT XíIF FG=1 THEN PRINT/R:GOTO 3100 
3095 PRINT 

3100 NEXT N?FOR L=1 TO SE 

3105 IF FG=1 THEN PRINT/P STRINGS(" ", 70)i GOTO 3115 

3110 PRINT STRINGS(" ",78):F0R S=1 TO 150SNEXT S 

3115 NEXT Lí NEXT ME:FOR 0=1 TO SM 

3120 ON FG GOSUB 3250,3260:NEXT Q 

3125 NEXT V¡GOTO 3300 

3200 REM ***** CONDICIONES ***** 

3205 PRINT:INPUT "No. REPETICIONES = ■ 5 NR 
3210 PRINTSPRINT "ENTRE LA SEPARACION ENTRE : " 

3215 PRINT!INPUT "...LINEAS MENSAJE = ";SE 
3220 IF NR=1 THEN RETURN 

3225 PRINT:INPUT "...MENSAJE/MENSAJE = “íSM 
3230 RETURN 

3250 PRINT/P STRINGS <" ", 79):RETURN 
3260 PRINT STRINGS(" ", 79)¡RETURN 
3300 REM ***** NO MAS REPETICIONES ***** 

3303 CONSOLE C40 

3310 CURSOR 8,10: PRINT 

3315 XS=""¡GET XS: IF XS="" THEN 3315 

3320 IF XS="S" THEN ON FG GOTO 2000,3000 

3325 IF XS="N" THEN 800 

3330 MUSIO Z3S = GOTO 3315 

4000 REM ***** CAMBIO PUNTO ***** 

4005 PRINT CHRS Í6)5" ♦♦♦♦♦ CAMBIO"! 

4010 PRINT " DE PUNTO PATTERN "¡Z1S 

4015 GOSUB 300:GOSUB 350¡CONSOLE S7,24 
4020 FOR A=IN TO F¡FOR L=1 TO 7 
4025 AS=AS(ñ,L)!S$=" «:FOR W=1 TO LENíAS) 

4030 CS=MIDS(AS,W,1)sIF CS=" " THEN 4040 
4035 SS=SS+CHRÍ<CA)!GOTO 4045 
4040 S4=SS+" " 

4045 NEXT W¡AS(A,L>=SS:NEXT L 
4050 PRINT CHRS <A)}" - "! 

4055 NEXT A¡CONSOLE S0,24:GGT0 800 


equivale a: (IF (A=0) OR (A=l) 
THEN 100. 

INSTRUCCIONES DE MANEJO 
DE ARCHIVOS (Acceso secueri¬ 
cial, que es el utilizado en el pro¬ 
grama) : 

— WOPEN #1, EDI, ÑAS = 
(Write Open) Abre el archivo de 
acceso secuencial al modo de gra¬ 
bación; asignando el canal, o Nú¬ 
mero lógico 1 (#1), la unidad de 
diskettes 1 (FD1), y el nombre 
de archivo el correspondiente a la 
variable NA$. 

— ROPEN # 1, FD1, ÑAS = 
(Read Open) Abre el archivo de 
acceso secuencial, en modo de 
lectura de datos. (Iguales caracte¬ 
rísticas de número lógico y uni¬ 
dad de discos). 

— PRINT # 1, A$ = Graba en el 
archivo secuencial (que debe de 
haber sido abierto con anteriori¬ 
dad) asignado al canal ó número 
log. 1 (#1) la variable de string 
A$. 

— INPUT # 1 ,AS = Lee del archi¬ 
vo secuencial asignado a # 1 la va¬ 
riable AS. 

— CLOSE # 1 = Cierra el archivo 
asignado a # 1. 

— CLOSE = Sin indicación de 
número lógico, cierra todos los 
archivos abiertos. 

Como última observación, y 
para la conversión a equipos cu¬ 
yo formato de pantalla no dis¬ 
ponga de 80 caracteres por linea, 
la línea 3030 contiene la instruc¬ 
ción Z$=LEFTS(Z$,9), se debe 
cambiar el 9 por el número de ca¬ 
racteres que admita la pantalla 
(refiriéndome a caracteres “gi¬ 
gantes” de 6 x 7 caracteres nor¬ 
males). Teniendo en cuenta la 
separación entre carácter y carác¬ 
ter, que es de 3 caracteres con¬ 
vencionales, 

No hace falta mencionar las 
posibilidades del programa con 
un ordenador que disponga de 
gráficos de alta resolución y va¬ 
rios colores. Espero recibir noti¬ 
cias de lectores que realicen algu¬ 
nas de estas modificaciones, así 
como las consultas de los proble¬ 
mas que os pudieran surgir de la 
introducción del programa. □ 

José María Vidal Lacasa. 

Barcelona, Octubre 1982. 
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Bernard Damman 


Los shadock son unos pájaros extraterrestres cuyo 
lenguaje es de lo más abstracto. He aquí un 
pequeño traductor cuya eficacia no admite 
demostración... 


El lenguaje shadock sólo dis¬ 
pone de cuatro palabras; «GA, BU, 
ZO y MEU», a las que añadiremos 
el silencio o espacio {« »). Esta 
economía de palabras no dice 
nada sobre ef carácter supere- 
volucionado def pensamiento de 
estos animales; podemos conver- 


cernos de ello leyendo un verso de 
uno de sus poetas, o una fórmula 
matemática de vanguardia de uno 
de sus sabios. 

El programa realiza la traduc¬ 
ción en los dos sentidos» La 
traducción del español al shadock 
no entraña ninguna dificultad. La 


traducción en el otro sentido 
requerirá la atención para intro¬ 
ducir el texto shadock sin error. 

En particular, los espacios de¬ 
berán ser respetados tanto en 
número como en emplazamiento, 
incluidos los del principio y final 
de texto {los asteriscos que en¬ 
cuadran el texto shadock sirven 
para eso, no formando parte del 
texto a introducir)» Todos los 
espacios son «significativos», y el 
lenguaje shadock los tiene en 
cuenta. 

La impresora será útil para 
facilitar la traducción, pero no es 
indispensable. Al finalizar el pro¬ 
grama, puede obtenerse la im¬ 
presión del texto apretando la 
tecla C (o haciendo NEWLINE), El 
programa permitirá la codificación 
de mensajes secretos. 

Ciento veinte dialectos 
para guardar vuestros 
secretos 

Para asegurar el secreto, es 
suficiente emplear uno de los 
ciento veinte dialectos shadock. El 
«GABUZOMEU», utilizado aquí, es 
el más empleado. Para utilizar, 
por ejemplo; el «BUZO-GAMEU» 
no hay más que cambiar el orden 
de los cinco números N=0,1,2,3, 
4 por N=2, 3, 0,1,4 en las líneas 
300 a 340 y 720 a 790 En este 
último, MEUZOGA-BU será ZA- 
GOMUBEU, ¿no es cierto? 
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PROGRAMA SHADOCK 



Ab UB 

OZ. EUM ! 



m 





40mWm^ 

mmlmm 


Oh, esto es «castizo 
versión SHADOK 


-CLS 

GOTO Sí 
SRUE "■ 
PRINT 1 


33 

u lj 1 T 

NT RT L 


■uK 


4-3 

PRI 

NT "2 S! 

S© 

PRI 

NT RT 2 

! L NU t 

¡ERO 

11 

SG 

INPUT R? 

55 

CLS 


70 

IF 

R$ = "l" ■ 

30 

XF 

RS= H 2" ' 

23 

XF 

R$ = *'0" ' 

25 

GOT 

O 23 

zea 

REH 

TRRDUCI 

ASHADÜK ÍBS) 

113 

REH 


153 

LET 


173 

POR 

1=1 TO 

130 

LET 

C sCOD£ 

120 

LET 

H 1. — T NT 

203 

LET 

N2=IHT 

31S 

LET 

N3=C -31 

220 

LET 

N = N1 

230 

GOSUB 33© 

2¿i 3 

LET 

N = NS 

y~ 

GGS 

UB 30S 

25G 

LET 

N = N3 


&B ©: “TRRDUCTOR' 1 


,-CRSTELLRMG 1 
XHTRODUCIR : 


THEN 

THEN 

THEN 


GOTO 1030 
GOTO 1500 
STOP 

ECRSTELLflHG) 


r tí ) 

:S> ' 

-25 tNi; /5) 

-5 -rN¿ 


Gosue c 

HEXT X 
RETURN 


303 

XF 

N-0 

THEN 

LET 

BIzEit' 

* " 

310 

XF 

H=2 

THEN 

LET 

Bé=e$p 

'GR 

323 

TP 

N = 2 

THEN 

LET 


'BU 

33© 

XF 

N — 3 

THEN 

LET 

Eí^eé^ 1 

XG 

34-0 

XF 

N = ¿ 

THEN 

t PT 

= 

1 HE: 


353 hETURN 

500 REM TRROUCE SíÍSHñDGKÍ 

:rstellhng ír$; 

510 REH 

580 LET 1 = 1 

=3S LET RÉ=”“ 

54.0 GOSUB 70© 

550 LET N1=N 
560 GOSUB 700 


-*70 LET M2=N 
560 GOSUB 700 
-<20 LcT N3=N 

603 LET fií=R$+CHR$ ÍN'3+5^N£+25 


IF 

I >LEN B* 

THEN RETÜRN 

GOTO 5-40 



IF 

X>LEN 34 

THEN SOTO 

900 

LET N=5 



ir 

B $ i IJ = " ' 

' THEN LET 

N=0 

Ir 

©4 i. X.l = " f S J ‘ 

THEN LET 

N-l 

XF 

B4 ? Ií = ,; B" 

THEN LET 

N-2 

XF 

Bill)= "Z" 

THEN LET 

N =3 

IF 

3s ÍXJ = "H ,; 

THEN LET 

N =4- 

IF 

N=S THEN 

LET 1 = 1*1 



_700 IF N = i OR N=2 OR N=3 THEN 
ET I = 1+2 

.'90 ir N=4- THEN LET 1=1*3 
^■00 J.F N=5 THEN GOTO 
610 RETURN 

■^00 PRINT “ERROR EN SU TEXTO i 

HDOri 

® i? PRj-NT "HACER NEULXNE" 

920 INPUT R$ 

94-0 RUN 
360 REH l " 

1000 PRIN 
CR&TELLñNO” 

I01O INPUT HS 




010 

INPUT 

915 

LET B 

0PFÍ 

CLS 

030 

PRINT 

04-0 

GOSUB 

030 

GOTO ; 

SO© 

REh §£ 

510 

PRINT 


"TRADUCCION EN CURSO" 


1510 PRINT "INTRODUCIR EL TEX~Q 
w“RDOK" 

1S20 INPUT ES 
1500 LET h'$- lí,J 
CL5 

tgfS PRINT «TRADUCCION EN CÜR^o- 
1560 GOSUB 500 
2000 REM 
2010 CL5 

S320 PRINT B*; " 

2330 PRXHT 

234.0 PRXNT “í'LRí;")" 

2350 INPUT R*i 
2050 Ir R$0"C" THEN RUN 
2070 LPRINT " " * ,T 

2303 LPRINI 

2090 LPRINT ' É í";ñSL")" 

3030 LPRINT 
■3013 LPRI NT 
3020 LPRINT 
3030 RÜN 


^GRBUHEUEUGRZOGRIOSUBU GABU 5U5U 
GRGR SñZOGftGRMEUGfiGRBÜZOBUQftGñ 


(BUENOS DIRS) 

ir GRZ G 5 UG RME UNE U BU BUBÜGR GR’ 
GRGRZOBUBU GRGfiBUZGGRZQGRBU BUS 
GR BU IDGRZOBUBUGR 5UGRGRGR 
OBU GfiGfiBÜZOGfiMEUMEU BU 5U5UÍ 
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EU5RGRBUZO GRBUZOGRHEUHEU í 
KEUNEUGRZüBUBU GRGRZQHEUBUGRZGí 
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DIVISION DE POLINOMIOS 

José Manuel Rodríguez Prolongo y 
José Antonio Mañas Valle. 



El programa realiza la operación división entre dos polinomios del ti¬ 
po A0X fi + AlX n_1 ... A(N-1)X+AN, dando como resultado un co¬ 
ciente y un resto, ambos también de la forma anterior. El programa ha 
sido realizado para el ordenador ATARI 800. 

Es normal y no sorprende a nadie el hecho de que un ordenador sea 
capaz de tratar una serie de datos numéricos dando como resultado 
otros datos también numéricos. No obstante, choca un poco ver a un 
ordenador operar, no solo con números, sino con expresiones comple¬ 
tas, como pueden ser, por ejemplo, los polinomios de la forma indicada. 

El programa, cuyo listado se acompaña, admite muchas mejoras, pero 
puede servir de base para futuros desarrollos. 


- La tabla A será la encargada 
de guardar el dividendo y tam¬ 
bién las operaciones de suma que 
se realicen bajo él, así como el 
resto. Por tanto, esta tabla debe¬ 
rá de tener tantas columnas co¬ 
mo sea el valor de M, y tantas fi¬ 
las como indique la siguiente ex¬ 
presión 2x (M-N) + 2. A esta ex¬ 
presión se llega tras estudiar de¬ 
tenidamente muchas divisiones, 
entonces se observa que la longi¬ 
tud de la división dependerá de 
dicha expresión. Ya tenemos, 
pues, dimensionada la tabla A 
(650 ), y tras limpiarla (700 a 
(1100) pasamos a hacer lo mismo 
con la tabla B. 

— En la tabla B se almacena¬ 
rán el divisor y el cociente, por 
tanto, tan sólo necesitará dos fi¬ 
las (la 0 y la 1). El número de co¬ 
lumnas variará según la longitud 
del cociente o del divisor, en 
cualquier caso siempre serán me¬ 
nor que M, por tanto, este puede 
ser su número de columnas. El 
dimensionado y limpieza de esta 
tabla se realiza en las líneas 1200 
a 1700. 

Introducción de los datos. 

En primer lugar se introducen 
los valores de M y N, que han de 
ser naturales, y que en el caso de 
ser introducidos datos erróneos 
(caracteres alfabéticos, números 
negativos o números con decima¬ 
les), éstos serán rechazados vol¬ 
viendo a pedir una nueva intro- 


Planteamiento. 

16x s -22x 4 +37x 3 - 28x 2 +9x+ 7 

| 2x 2 - x + 3 

Partimos del estudio de una di- 

8x 4 - 24x 3 

8x 3 - 7x 2 + 3x - 2 

visión de polinomios en su forma 
convencional. (Ver recuadro). 

- -14x 4 +13x 3 - 28x z 


Llamaremos M al mayor expo- 

- 7x 3 +21x 2 


nente del dividendo, y N al del 
divisor, siendo M mayor o igual a 

6x 3 - 7x 2 +9x 


N. 

3x 2 -9x 


Para que el ordenador pueda 
realizar las operaciones tal y co¬ 
mo se efectúan en el papel, he¬ 
mos de reservar el espacio sufi¬ 
ciente en unas tablas que tendrán 
una dimensión determinada. 

- 4x 2 +0x+ 7 


- 2x+ 6 

- 2x+13 
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100 REM PROGRAMA PARA DIVIDIR POLINOMIOS 

110 REM PROGRAMADORES: J.M.RODRIGUEZ PROLONGO J.A.MASAS VALLE 15-4-82" 

120 DIM MS(5) 

140 DIM N*(5> 

160 DIM PA*<20> 

180 DIM PE*(20) 

200 PRINT ">PROGRAMA PARA DIVIDIR POLINOMIOS TIPO:" 

250 PRINT "A0X'M+A1X''(M-1 > +. . . +A(M-l)X+AM/BOX'N+BlX~(N-l)+. . . +BCN-1 ) X+BN" 

300 PRINT "SIENDO M=N O M>N,Y AMBOS Nos NATURALES" 

330 REM - 

340 REM VALOR DEL MAYOR EXPONENTE <M) 

410 PRINT "INTRODUZCA EL VALOR DE M" 

420 INPUT M* 

430 LET JO=ASC(MS) 

440 IF JO>57 OR J0<48 THEN 470 
450 LET M=VAL(M*) 

460 GOTO 480 

470 PRINT ">M=”;M*;" ERROR.M SOLO ADMITE VALORES DE NUMEROS NATURALES":GOTO 410 
480 LET VA=M-INT(M> 

490 IF M<0 OR VAOO THEN PRINT ">M=";M*;" ERROR.M HA DE SER UN NUMERO NATURAL": G 
OTO 410 

500 REM VALOR DEL MENOR EXPONENTE (N) 

510 PRINT "INTRODUZCA EL VALOR DE N" 

520 INPUT N* 

530 LET JI=ASC(N*) 

540 IF JI>57 OR JI<48 THEN 570 
550 LET N=VAL(N*> 

560 GOTO 580 

570 PRINT ">M=";M*;" N=";N*;“ ERROR.N SOLO ADMITE VALORES DE NUMEROS NATURALES": 
GOTO 510 

580 LET VE=N-INT(N> 

590 IF N<O OR VEOO THEN PRINT ">M=";M*;" N=";N*; M ERROR.N HA DE SER UN NUMERO N 
ATURAL":GOTO 510 

600 IF M<N THEN PRINT ">M=";M*;" N=":N*;" ERROR. M HA DE SER MAYOR O IGUAL QUE N 
":GOTO 410 

630 REM - 

640 REM DIMENSIONADO Y LIMPIEZA DE TABLAS 
650 DIM A(2*(M-N)+2,M) 

700 FOR U=0 TO 2*(M-N)+2 

800 FOR V=0 TO M 

900 LET A(U,V)=0 

1000 NEXT V 

1100 NEXT U 

1200 DIM B(1,M) 

1300 FOR X=0 TO 1 
1400 FOR Y=0 TO M 
1500 LET B(X,Y)=0 
1600 NEXT Y 
1700 NEXT X 

1750 REM - 

1770 REM ASIGNACION DE VALORES A LAS CONSTANTES 
1800 PRINT "INTRODUZCA DE AO A AM" 

1900 FOR K=0 TO M 
1910 PRINT "A";K; 

1920 INPUT PA* 

1940 LET TI=ASC(PA*) 

1960 IF TI>57 OR TI<45 THEN 2020 
1970 IF TI=47 THEN 2020 
1990 GOTO 2030 

2020 PRINT "ERROR.A SOLO ADMITE VALORES NUMERICOS":GOTO 1910 
2030 LET PA=VAL(PA*) 

2050 LET A(O,K)=PA 
2100 NEXT K 

2200 PRINT "INTRODUZCA DE BO A BN” 

2300 FOR R=0 TO N 
'2310 PRINT "B”;R; 

2320 INPUT PE* 

2340 LET TO=ASC(PE*) 

2360 IF T0>57 OR T0<45 THEN 2420 
2370 IF T0=47 THEN 2420 
2380 GOTO 2430 

2420 PRINT "ERROR.B SOLO ADMITE VALORES NUMERICOS":GOTO 2310 
2430 LET PE=VAL(PE*) 

2450 LET B(O,R)=PE 
2500 NEXT R 

2550 REM - 

2600 REM LAZO DE OPERACIONES 

2700 FOR H=0 TO M-N 

2800 LET B(1,H)=A(2*H,H)/B(0,0) 

2900 FOR C=H+1 TO N+H 

3000 LET A(2+H+l,C)=-B(1, H)*B(O,C—H) 

3100 NEXT C 

3200 FOR D=H+1 TO N+H 

3300 LET A(2*(H+l),D)=A(2*H,D)+A(1+2*H,D> 

3400 NEXT D 

3500 IF H=M-N THEN 3700 

3600 LET A(2*(H+l),H+N+l)=A(O,H+N+l) 

3700 NEXT H 

3750 REM - 

3770 REM LAZO DE IMPRESION DEL DIVIDENDO 
3800 PRINT "JDIVIDENDO: "; 

3900 LET 0=M 

4000 FOR 1=0 TO M 

4100 IF A(O,I)<0 THEN 4700 

4200 IF 0=0 THEN 4500 

4250 IF 0=1 THEN 4650 

4300 PRINT "+";INT(A(0,I)*100+0.5)/100;"X*";0; 

4400 GOTO 5100 

4500 PRINT " + ";INT(A(0,I)* 100+0.5)/100 
4600 GOTO 5100 

4650 PRINT " + ";INT(A(O,I)* 100+0.5)/lOO;"X"; 

4670 GOTO 5100 

4700 IF 0=0 THEN 5000 

4750 IF 0=1 THEN 5050 

4800 PRINT INT(A(0,I>* 100+0.5)/100;"X*";0; 

4900 GOTO 5100 

5000 PRINT INT(A(O,I)*100+0.5)/100 
5030 GOTO 5100 

5050 PRINT INT(A(O,I)* 100+0.5)/100;"X": 

5100 LET 0=0-1 
5200 NEXT I 

5250 REM - 

5270 REM LAZO DE IMPRESION DEL DIVISOR 
5300 PRINT 'DIVISOR: 

5400 LET E=N 

5500 FOR f^=0 TO N 

5600 IF B(O,F)<0 THEN 6200 

5700 IF E=0 THEN 6000 

5750 IF E=1 THEN 6150 

5800 PRINT " + ";INT(B(O,F)* 100+0.5)/100;"X^";E; 

5900 GOTO 6600 

6000 PRINT "+*'; INT (B (O, F) * 100+0. 5) /100 
6100 GOTO 6600 

6150 PRINT "+ M ;INT(B(0,F)*100+0.5)/100;"X"; 

6170 GOTO 6600 
6200 IF E=0 THEN 6500 
6250 IF E=1 THEN 6550 

6300 PRINT INT(B(0,F)*100+0.5)/100;"X^";E; 

6400 GOTO 6600 

6500 PRINT INT(B (O, F> * 100+0.5)/100 
6530 GOTO 6600 

6550 PRINT INT(B(0,F)*100+0.5)/100;"X"; 

6600 LET E=E—1 
6700 NEXT F 

6750 REM - 

6770 REM LAZO DE IMPRESION DEL COCIENTE 
6800 PRINT "COCIENTE: ”; 

6900 LET G=M-N 
7000 FOR H=0 TO M-N 
7100 IF Bíl.HXO THEN 7700 
7200 IF 6=0 THEN 7500 
7250 IF G=1 THEN 7650 

7300 PRINT "+";INT(B(1,H>*100+0.5)/100;"X~";G; 

7400 GOTO 8100 


7500 PRINT "+";INT(B(1,H)*100+0.5)/100 
7600 GOTO 8100 

7650 PRINT "+";INT(B(1,H)*100+0.5)/100;"X"; 

7670 GOTO 8100 

7700 IF G=0 THEN 8000 

7750 IF G=1 THEN 8050 

7800 PRINT INT(B(1.H)* 100+0.5)/100;"X^”;G; 

7900 GOTO 8100 

8000 PRINT INT(B(1,H)* 100+0.5)/100 
8030 GOTO 8100 

8050 PRINT INT(B(1,H)*100+0.5)/100;"X"; 

8100 LET G=G-1 
8200 NEXT H 

8250 REM - 

8270 REM LAZO DE IMPRESION DEL RESTO 
8300 PRINT "RESTO: 

8400 LET J=N—1 

8500 FOR K=M—N+l TO M 

8600 IF A(2*(M—N)+2,K)<0 THEN 9200 

8700 IF J=0 THEN 9000 

8750 IF J=1 THEN 9150 

8800 PRINT " + ";INT(A(2*(M-N)+2,K)* 100+0.5)/100;"X^";J; 
8900 GOTO 9600 

9000 PRINT " + ";INT(A(2*(M-N)+2,K)* 100+0.5)/100 
9100 GOTO 9600 

9150 PRINT "+";INT(A(2*(M-N)+2,K)*100+0.5)/100;"X"; 

9170 GOTO 9600 

9200 IF J=0 THEN 9500 

9250 IF J=1 THEN 9550 

9300 PRINT INT(A(2*(M-N)+2,K)* 100+0.5)/100;"X^";J; 

9400 GOTO 9600 

9500 PRINT INT(A(2*(M—N)+2,K> * 100+0.5)/100 
9530 GOTO 9600 

9550 PRINT INT(A(2*(M-N)+2,K)* 100+0.5)/100;"X"j 
9600 LET J=J-1 
9700 NEXT K 
9800 END 


Algoritmo del programa de división de polinomios. 
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Organigrama del lazo de operaciones. 





ducción del dato erróneo. Igual¬ 
mente, en el caso de que N sea 
mayor que M se repetirá la entra¬ 
da de los datos (410 a 600). 

Como fácilmente puede imagi¬ 
narse, el ordenador tan sólo va a 
operar con las constantes de las 
expresiones, o sea, que sólo tér¬ 
minos de la expresión y no sus 
exponentes, excepto como ya he¬ 
mos visto antes, al principio hay 
que introducir M y N para poder 
dimensionar. 

— Para introducir el dividendo 
hacemos uso de un lazo que se 
repetirá de 0 a M veces, dentro 
del cual hay una INPUT (1920) y 
además va introduciendo cada 
dato en su lugar correspondiente 
de la tabla A(20 50). Al mismo 
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tiempo, dentro de este lazo he¬ 
mos intercalado sentencias IF... 
THEN, para que en el caso de 
que se introduzcan datos no váli¬ 
dos (caracteres no numéricos dis¬ 
tintos de menos o de la coma de¬ 
cimal) vuelva a repetir el ciclo en 
que se encuentra. 

— La introducción del divisor 
se realiza de la misma forma en la 
fila 0 de la tabla B (2200 a 2500). 

Lazo de operaciones. 

Es esta parte del programa la 
más importante, y quizás por eso 
la de más difícil comprensión 
(2600 a 3700), 

En el ejemplo anteriormente 
expuesto podemos observar có¬ 
mo la operación de dividir poli¬ 
nomios consiste en realizar con¬ 
secutivamente las siguientes ope¬ 
raciones: división de números, 
multiplicación de números, cam¬ 
bio de signo y suma de números. 
Este proceso se realizará M-N ve¬ 
ces, ya que cada vez que se reali¬ 
ce, el exponente mayor del divi¬ 
dendo disminuirá en un grado 


hasta que éste sea menor a N, en 
cuyo caso acabará la división, por 
lo tanto, el lazo principal de ope¬ 
raciones se realizará tantas veces 
como indique la sentencia 2700. 

Dentro de este lazo que po¬ 
dríamos llamar general, existen 
otros dos. El primero consiste en 
multiplicar cada elemento del 
cociente por cada uno de los del 
divisor y cambiarlos de signo, lle¬ 
vando el resultado a la posición 
correspondiente de la tabla A 
(2900 a 3100); se realiza tantas 
veces como indique N. El segun¬ 
do lazo consiste en sumar los va¬ 
lores que obtengamos en el lazo 
anterior con sus inmediatos supe¬ 
riores en la tabla A: este lazo 
también se realizará N veces 
(3200 a 3400). 

Tras realizar estos dos lazos y 
siempre dentro del lazo general, 
es necesario bajar el siguiente tér¬ 
mino tal y como se hace en la di¬ 
visión de polinomios convencio¬ 
nal (3600), este paso no se reali¬ 
za en el último lazo, ya que no 
quedan más términos en el divi¬ 
dendo (3500). 


Como hemos dicho antes, es¬ 
tos dos lazos se realizan dentro 
de uno general, y en cada vuelta 
de éste los distintos valores que 
se obtengan en los dos lazos se¬ 
cundarios se situarán en distintas 
posiciones dentro de las tablas, 
pero siempre siguiendo la misma 
disposición que en las divisiones 
de polinomios convencionales. 

Debe quedar claro que en el la¬ 
zo de operaciones se ha jugado 
tan sólo con los valores constan¬ 
tes de cada factor, y que su expo¬ 
nente sólo se ha tenido en cuenta 
para su distribución en las tablas. 

Estas operaciones están clara¬ 
mente reflejadas en el Organigra¬ 
ma del Lazo de Operaciones. 

Impresión del resultado. 

El programa realiza la impre¬ 
sión en pantalla del dividendo, 
divisor, cociente y resto. 

— Dividendo: basta con impri¬ 
mir los valores que hay en la fila 
0 de la tabla A, dotando a cada 
número de su correspondiente X 
y del exponente de cada X, y 
también teniendo en cuenta el 
signo (4100). Se realiza, pues, la 
impresión con un lazo que se re¬ 
petirá M veces, en la cual habrá 
una variable (0) que irá disminu¬ 
yendo su valor en cada vuelta y 
que representará el valor del 
exponente de X. Hemos dotado 
a este lazo de algunas IF. .. 
THEN, con objeto de eliminar el 
exponente de X en el caso de que 
éste sea 1, o de eliminar a X en el 
caso de que su exponente sea 
0 (3800 a 5200). 

— Divisor: se realiza de la mis¬ 
ma forma, pero imprimiendo la 
fila 0 de la tabla B, y su lazo se 
repetirá N veces. (5300 a 6700). 

— Cociente: igualmente con la 
fila 1 de la tabla B y se hará M-N 
veces (6800 a 8200). 

— Resto: igualmente con la 
última fila de la tabla A, es decir, 
con la 2x (M-N) + 2, repitiendo 
la secuencia N-l vez (830 0 a 
9700). 

Todos los resultados van re¬ 
dondeados hasta 2 cifras decima¬ 
les. 

Lo aquí expuesto queda refle¬ 
jado de una forma muy general 
en el algoritmo de este programa.□ 


117 


/ Ordenador Personal, nüm , 28 







IMPRESORAS 

Se la instalamos a su ordenador, 
ahorro considerable en cables y conectares. 
Le iniciamos en su manejo. 


SEIKOSHA GP 1QOVC (commodorel 49.600- 

COMMODORE MPS 801 . 59 900 — 

ADMATE DP 80 . 59.500- 

STAR GEMINI 10X 120 c.p.s. 79.500 — 

STAR GEMINI15X 115 OOo!- 

SEIKOSHA GP 730 color . 98.500- 

INTERFACE STAR-COMMQDQRE 10.000- 


PROGRAMAS CDMMODORE 

CONTABILIDAD C-64 (P.G.C.). 24 550 - 

MAGIC OESK fcart.) . 16 000- 

EE MANS C64 (cart.) . 4.500- 

MUSIC MACHINE (cart.). . . 4.500- 

SEA VVOIF (cart.). 4 500 - 

LENGUAJE MAQUINA 064 fcart.» 10.000,- 

MASTER S4 (disco) . 25.000- 

CURSILLOS PROGRAMACION (basic, 
cod. márjiiina, sprites) cas. .... 2 600- 

FALCON PATROL (cas.) . 2.500,- 

PIT STOP coches (casi. 2.500,- 

MANIC MINER (cas.) 3.000- 

NAVATRON leas.) . 3.000]- 

SUPER DOGFIGHT leas.). 2 000,- 

ELECTRO LASER (cas.) . 2.000 — 

HUNOBACH (cas.) . 3.000,- 

PIPELINE el fontanero (cas,). 3.000,- 

REVENGE OF MUTANT CAMELS 


NOVEDADES 

CURSO INTR. BASIC II C-64. 3 000- 

SIMONS BASIC C-64 ... . 16 000- 

JOY STICK CONTROL REMOTO (par.). 6 900- 

SIM. VUELO C-64 (disco). 7.000,- 

FUTBOL + JUMPMAN (disco) 5 000- 

FUNDAS COMMODORE. 1100- 

LAPIZ OPTICO. 9.900.- 

IIMPRESORA RITEMAN Folie, portátil 81 000- 
IMPRESORA SEIKO GP-50 SPECTRUM 26.900’- 

PAPEL GP-50 . 150,- 

OFERTAS ANTES OFERTA 

JOY STICK QUtCKSHOOT If 4.200,- 2.500,- 
DISCOSWABASH 5 1/4(10 0 ) 5.080- 3.84o|- 
DISCOS NASHUA FD 2D 8” 10 u 10 240- 7 050 - 
MONITOR FONTEC 9" f.v. 28.500,- 25.556^- 


ASESOFAMIENTO EN LA MECANIZACION DE 
PEQUEÑAS EMPRESAS Y APLICACIONES 
ESPECIFICAS. 

SOLUCIONES desde . . 223.155,- 

(Unidad central 64K, lector de discos a impresora 
80 c.p.s.) 

PROGRAMAS; Procesado de textos. Contabilidad, 
Mailing (etiquetas direcciones), Fichero clientes, 
Hojas electrónicas (presupuestos, previsiones 


de ventas)... 

PERIFERICOS Y ACCESORIOS 

INTERFACE APPIE/IMPRESQRA 

GRAFICA . 16 390- 

DISCOS MAXELL 5 1/4" .. 508- 

DISCOS DATALIFE . 586- 

PAPEL PAUTADO 3.000 h. 3.880- 

PAPEL BLANCO 2.700 h. 4.075.- 

PAPEE PAUTADO GP 80 1.000 h . 999,- 

KIT LIMPIEZA FLOPPY 5 1/4 4.227,- 

MONITQR FONTEC 12" f.v 30100- 

MONITOR MULTJTECH (Base móvil) 38 000- 

CAJA ARCHIVO 50 DISCOS 3.975- 

CAJA ARCHIVO 25 DISCOS 6.220- 


MllMf <V(M*f lllllM l 

i 

¡i;;;ii !!! ;!!?**■ \ 


Productos garantizados por les importadores 
oficíales 

Evítese sorpresas desagradables, 

commodore 

COMMODORE 64 64.900,- 

CASSETTE (grabador-reproductor). 12.000,- 

UNIDADOE DISCO (170K) 95.000- 

PADDLES (PAREJA) . 2,500,- 

ZX Spectrum 

SPECTRUM 16K 31.900- 

SPEGTRUM 46K -tl-OOo' 

SPECTRUM (ampliado 48K) 39 900- 

AMPLIACION DE 16K A 48K 

(montada) . 8.000,- 

ZX INTERFACE 1 . 17 500- 

ZXMICRODRIVE . 17 500- 

ZX INTERFACE 2 7.900,- 

ORIC ATMOS, SPECTRAVIOEO SV 318, 
SPECTRAVIDEO SV 328, UNIERON, MULTITECH 
APPLE, etc... 


PROGRAMAS SPECTRUM (originales) 

BANDERA A CUADROS 2000- 

TUTOR . . 2.50DI¬ 
SIMULADOR OE VUELO . 2 500- 

VU 30 . 2 500- 

MANIC MINER . . 1 700- 

JET SET WILLY. 1700- 

ANOROIDE UNO. 1 485- 

ANDROIDE DOS . 1 580 - 

ESCALADOR LOCO. 1 5B0- 

LUNARJETMAN. 1.800,- 

ATIC ATAC . . 130Q- 

ALCHEMIST . 1.800,- 

JETPAC . 1.800Í- 

PSSST.. 1,800,- 

THE PYRAMID. 1 300- 

ROMMELS REVENGE. 1 800- 

CONTABILIDAD PERSONAL . 2.320Í- 

MASTER FILE. 2 500- 

GENERADOR OE ROTULOS .. . 2 200- 


'N 
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Choque elástico 



Este programa permite simular en la pantalla del 
televisor, el choque elástico entre dos discos rígi¬ 
dos, en conformidad con las leyes de la Física. 
Aunque el programa se ha realizado para el «Dra¬ 
gón 32», se dan algunas indicaciones para su 
adaptación a otros miniordenadores. 


Características 


El presente programa tiene una 
finalidad fundamentalmente di¬ 
dáctica: facilitar el estudio teórico 
y experimenta! de! choque elásti¬ 
co en dos dimensiones, ya que los 
choques entre bolas o entre 
discos no resultan fáciles de 
estudiar debido a los rozamientos 
y a las dificultades de medida. 
Este programa permite realizar y 
observar fácilmente una fiel simu¬ 
lación del choque elástico entre 
dos discos, haciendo posible la 
elección de los parámetros que 
caracterizan el choque (radio y 
masa de los discos y ángulo de 
incidencia) y ofreciendo tablas y 
esquemas que describen comple¬ 
tamente las características del 
choque. 

Al observarse el choque, puede 
por ejemplo, cronometrarse la 
duración del movimiento de los 
discos antes y después del cho¬ 
que, medirse sobre la pantalla del 
televisor las distancias recorridas 
por los discos y a partir de estos 
datos, calcularse la velocidad de 


{1} Algunas consideraciones didácticas 
y otras sugerencias para su empleo en el 
aula >, pueden consultarse en Christian 
WAGNER, Experiencias mediante orde¬ 
nador en Física y Química , Revista Patio 
Abierto n^ 7, ICE de La Universidad de 
Cádiz. 


los discos antes y después del 
choque. (1) 


Un poco de física 


Consideremos el choque de un 
disco que se mueve con una 
velocidad y dirección dadas (pro¬ 
yectil), contra otro disco que se 
encuentra en reposo (blanco). 
Para determinar completamente 
la velocidad después del choque 
de cualquiera de los dos discos, 
hemos de conocer dos valores, el 
del módulo de la velocidad y el del 
ángulo que ésta forma con la 
horizontal, o los de sus compo¬ 
nentes horizontal y vertical. Por lo 
tanto, para determinar completa¬ 
mente el movimiento de los dos 
discos después del choque, nece¬ 
sitamos conocer los valores de las 
cuatro variables que definen las 
velocidades de los dos discos. 

En ausencia de rozamientos y 
considerando un choque perfecta¬ 
mente elástico en dos dimensio¬ 
nes, las leyes de la física nos 
indican que se conserva la ener¬ 
gía cinética (nos aporta 1 ecua¬ 
ción) y el momento lineal o 
cantidad de movimiento (m*v, 
producto de la masa por la 
velocidad) que nos aporta 2 ecua¬ 
ciones (una por cada componente 
del momento lineal o de la 
velocidad). 


Tenemos por lo tanto un sis¬ 
tema de 3 ecuaciones con cuatro 
variables cuya solución no será 
única sino que se obtendrá un 
conjunto de soluciones que de¬ 
penden de un parámetro arbitra¬ 
rio. En nuestro caso este pará¬ 
metro describe el modo en el que 
se efectúa el choque, es decir, la 
forma de los cuerpos, sus zonas 
de contacto y cómo se deformaron 
en el choque. En el caso de dos 
discos rígidos y homogéneos, este 
parámetro queda determinado por 
el hecho de que en el sistema de 
referencia de centro de masa (2), 
los movimientos del centro de! 
proyectil antes y después del 
choque, son simétricos respecto 
de la recta que une los centros de 
los dos discos en el momento del 
choque. Esto nos permite calcular 
el ángulo que con la horizontal, 
forma la velocidad del proyectil 
después del choque y de esta 
forma queda perfectamente defi¬ 
nido el movimiento de los discos 
después del choque 

Debido a dificultades matemá¬ 
ticas y experimentales, el estudio 
de los choques se limita usual¬ 
mente al de un caso particular 
denominado choque frontal. Un 
choque entre dos discos puede 
considerarse frontal, cuando en el 
sistema de referencia en el que 
uno de ellos está en reposo, la 
trayectoria del centro del disco 
móvil tiende a pasar, en el 
momento del choque por el centro 
del disco en reposo. En el sistema 
de centro de masa los dos discos 
se moverían sobre la misma recta. 


(2) El sistema de referencia de centro 
de masa de los dos discos es un sistema de 
referencia en el que los centros de ambos 
discos se mueven siempre sobre rectas 
paralelas, en sentidos opuestos y de modo 
que el momento lineal de ambos discos 
sea el mismo 
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antes y después del choque. 
Aunque en este programa e! 
choque frontal es una de las 
muchas posibilidades, el progra¬ 
ma ofrece la opción de elegir éf la 
dirección de! movimiento del pro¬ 
yectil de modo que el choque sea 
frontal. 

Advirtamos que al limitarnos al 
movimiento en dos dimensiones, 
es preferible referirnos al movi¬ 
miento de discos en lugar de al de 
bolas. De esta forma nuestro 
modelo se acerca más a la 
realidad ya que en el caso de los 
discos no hay que considerar ef 
momento angular ni la energía de 
rotación, como usualmente se 
hace. Además, si las dos bolas no 
tienen igual tamaño, la proyec¬ 
ción sobre el plano de la recta 
que une los centros de las bolas 
en el momento del choque, será 
menor que la suma de sus radios, 
lo que dificultaría su represen¬ 
tación en la pantalla y haría 
perder claridad a la simulación. 


Descripción 
dei programa 

Este programa ha sido realiza¬ 
do para el Dragón 32 y utiliza 
24,5K de su memoria RAM. Sin 
embargo puede adaptarse a otros 
míniordenadores que tengan po¬ 
sibilidades gráficas similares aun¬ 
que su capacidad de memoria sea 
menor, según iremos indicando. 

El programa está estructurado 
en un bloque inicial y en nueve 
bloques que comienzan por una 
sentencia REM, como puede ob¬ 
servarse en el listado. 

En el bloque inicial, se dímen- 
sionan dos matrices y se asignan 
valores a las constantes y varia¬ 
bles que se necesitarán para 
obtener el movimiento de los 
discos. A! hacerlo de esta forma, 
se reduce e! tiempo que tarda eí 
ordenador en localizar dichas 
variables y constantes, aumen¬ 
tando la velocidad máxima con la 
que pueden moverse los discos 
sobre la pantalla Si se desea 
incrementar la velocidad de los 
discos en un 35%, tecléese POKE 
65495,0 antes de ejecutar el 
programa {3). En este caso dismi¬ 
nuye ligeramente el ajuste de las 
velocidades. Para volver a la 
velocidad normal tecléese POKE 
65494,0. 

El bloque 1 e sólo realiza el 
cartel presentador del programa y 
el bloque 2- da en pantalla 
algunas indicaciones para su utili¬ 
zación, por lo que pueden su- 


(3) Sugerencia de Cofín CARTER en *En- 
ter the Dragón . Melbourne House. Cali¬ 
fornia. 1983. 


prímirse sin alterar el programa, 
siempre que se conserve la línea 
56, 

Ai no poder mezclarse la alta 
resolución con texto de pantalla, 
e! bloque 3- prepara algunos 
rótulos y letras que se utilizarán 
en alta resolución e incluye una 
subrutina que sitúa unos rótulos 
en la esquina izquierda de la 
pantalla (líneas 86 y 88). 

En el bloque 4- se introducen 
los datos a través del teclado y del 
JOYSTICK izquierdo. Anotemos 
que a menos de un error de 
conexión de mi ordenador, en el 
manual están cambiadas las ins¬ 
trucciones del joystick derecho e 
izquierdo. Advirtamos también 
que hemos tenido que introducir 
la llamada JOYSTK(G) antes de 
JÜYSTK{3) que era ¡a que nos 
interesaba, pues de lo contrario 
dicha llamada no se efectuaba 
(línea 152), 



Aunque la masa del proyectil 
se considera igual a la unidad, 
esto no quita generalidad al 
programa ya que la masa de! 
blanco puede tomar cualquier 
valor, mayor o menor que uno. 

Ef radio del proyectil es de 5 
puntos mientras que el del blanco 
se elige entre 5 y 17 puntos. 
Aunque no parece interesante 
utilizar blancos mayores, su radio 
podría aumentarse hasta 50 pun¬ 
tos pues hay 7,5K de memoria 
disponible. Por el contrario sí se 
modifica el programa de modo 
que los dos discos tengan igual 
tamaño, puede utilizarse la misma 
matriz para ambos, ahorrándose 
memoria. 


Como los puntos que el orde¬ 
nador dibuja sobre la pantalla no 
son cuadrados sino rectangula¬ 
res, en la línea 102 se introduce 
un factor de escala FE y su inverso 
EF.FE se obtiene dividiendo Ja 
longitud de una línea vertical por 
la de otra horizontal de igual 
número de puntos. 

En el bloque 5 q se obtienen los 
diferentes valores que permiten 
que el movimiento de los discos 
se adecúe a los datos introducidos 
y a las leyes de la física. 

Los bloques 6- y 7- realizan, 
respectivamente, el movimiento 
de los discos antes y después det 
choque. El movimiento se efectúa 
colocando sucesivamente en la 
pantalla, mediante eí comando 
PUT, un círculo verde rodeado de 
un filo negro que permite borrar 
los puntos no utilizados del cír¬ 
culo anterior. 

Para que el movimiento de los 
discos antes y después del choque 
se adecúe a las leyes de la física 
se ha dispuesto un buble FOR 
1MEXT de frenado en fa línea 216. 
El valor máximo del índice del 
buble, IR, se obtiene mediante las 
líneas 98,100 y 204 y su cálculo 
se explicará posteriormente. En la 
línea 252 se ha introducido otro 
bucle de frenado que puede ser 
necesario al modificar o adaptar el 
programa. Aunque el índice máxi¬ 
mo de este bucle, JR, es cero, ía 
eliminación de esta línea perju¬ 
dicaría la bondad del ajuste obte¬ 
nido. 

Hay que observar que aunque 
en cada choque se considera la 
velocidad del proyectil igual a la 
unidad, ésta varía de un choque a 
otro de modo que la realización 
del choque dure lo menos posible. 
Advirtamos finalmente que entre 
la primera y las posteriores veces 
que se ejecuta el programa hay 
una ligera variación en la velo¬ 
cidad de los discos debido a la 
variación de los valores deT5 yT6 
(líneas 220 y 256) y originada 
seguramente por una distinta 
posición inicial del puntero. 

E! bloque 8- permite presentar 
en alta resolución un esquema del 
choque. El dibujo de los ángulos 
que las trayectorias forman con la 
horizontal, así como las letras que 
!os denominan, parcialmente defi¬ 
nidas en el bloque 3-, se realizan 
mediante una subrutina que com¬ 
prende las líneas 304 a 350. La 
primera parte de la subrutina 
(líneas 304 a 31 2) calcula el valor 
del ángulo. 

El bloque y último comienza 
presentando un menú de opcio¬ 
nes. Entre ellas se encuentra la 
posibilidad de guardar en memo¬ 
ria el esquema del choque para 
compararlo con el que se obtenga 
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PROGRAMA uRIGINAL C'E CHRISTIHN WBGNER 

10 CLEAR 600 PCLEAR? 

12 0-0 y-O v-o XB =0 YB=C X 0=10 Y8*184 S -.5 XL“254 YL=191 1-0 Y 1=0 XZ-150 YZ -100 

-3-0 Y3*0 X4=0 Y4-0 X5=0 <6-0 P4-0 0*0 TI~0 K~0 C1~0 C2=0 C3=0 C4~0 E=0 El*7 IL 
-o IR*Ü Jp-Ij V 0 * 1 Din P' 5'» T5=0:T6=0 DIM PR<12> Din B< 32 * 

14 PEH 1 PRESENTACION l’EL PROGRAMA f t Ct* TTT ♦ t TCYT» tt ttttttt ttttt ****** ttt tt1 ♦ 

tt 

16 CLS 8 

10 FOR 1*0 TO 3 

20 SET '4+1.3.3 >SET^4. 4 + 1 .3 v SET' 4 + 1 . 7 .3> SET' 10+1.5.3 ) 

32 SET' 10+1 3.3.* SET' 21.4+1.3 ) SET' 17.3+1.3 . SET' 17+1.7.3 ■> 

24 SET'25+1.3.3 * SET'29.4+1 3 > SET< 25+1.7.3 »:SET' 26+1.5,3> SETc26,6, 3 > 

36 SET' 22+1 7.3 > SET' 35.3+1 . ? > SET' 30+1.3.3 < SET'?3+I 7 3 * SET' 38.4+1 3 . SET' 39 
5.3- SET' 40.5.3 > 

20 SET' 14+1.11.?) SET' 14.12+1.3) SET' 14+1.15.?) SET' 15.13.3* SET' 16.13.?'* 

30 SET' 20.11 + 1.3)’ SET' 20+1 . 15.3 ■ SET' '-7+1 .11.3* SET< 27+1.13.3 » SET' 30.12+1.3) 

32 SE í' 33+1 .11.3* SET' 33+1.13.3* SE Tí 33+1.15.3» SET' 33 12 .3 . SET' 36 . 14 . 3 > 

34 SET' 41 12+1 3> SET'49+1. 11.3 . SET< 49, 12+1.3 » SET'49+1,15.3> 

36 SET' 55+1.11.3) SET' 59.11 + 1.3» SET' 55.12+1.3 * SET' 56+115.3* 

30 NEXT I 
40 FOP 1=0 TO 4 

42 SETí 10.3+1.3* SET* 14.3+1.3) SET' 24.3+1.3» SET '31.1+3.3* SET' 26.1 1 + 1.3 » SET' 
39+1.11.3) SET'46.1l+I.3> 

44 NEXT I 

46 PRINT @448.“PROGRAMA DIDACTICO, ORIGINAL DE". 

40 PRIHTQ4S0. CHPISTIAN WAGNEP” 

50 FOR 1*1 TO 50O NEXT I 

52 PEM 2 INDICACIONES ttttttttttttt ttttttttttttttttttttttttttttttttttt ttttt tt 

tt 

54 CLS 6 

56 KS*CHPS< 159 »+rHP*' 159 » JS=XS+KS G*- 1 *+r*+K* 

58 PRINT00." SIMULACION DEL CHOQUE DE UN PROYECTIL CONTRA UN BLANCO FITO.". 

60 PRINT@96.GS+"INDICACIONES"+GS 

6 ? PPINT@160." DESPUES DE CADA INTERROGACION INTRODUCIR EL VALOP O RESPUESTA PE 
DIDO. LUEGO PULSAR -ENTEP-. 

64 PRINT8288."APUNTE MOVIENDO VEPTICALMENTE ELMANDO.DISPARE PULSANDO EL BOTON.TA 
PDA UN POCO ANTES DE COMENZAR.”. 

66 PRINT@416."PULSAR C PARA CONTINUAR AHORA Y DESPUES DE UN GRAFICO O TABLA. " 
60 HS=INKEYS 

70 IF INFEYS >"C" THEN 70 

74 REM 3 LETRAS Y ROTULOS EN ALTA RESmUCION tttttttttttttttttttttttttttttttt 
tt 

76 CS=".L5.D9.R5.BR5.U9.BD4.R5.BU4,D9.BR5.U8 R5 D9.L5;BRIO.U9 R5.09.L5.BR2 U3.R2 
BU 6 BR5.D9 R5.U9.BRIO.L5.D4.NR4.D5.R5" 

78 N*=".R5.D9.L5.U9.BL5.D9.BL5.U9.BD2.F5" 

80 FS=" R4 BRl.BU4:L5.D9:BR10:U9.P5.D4.15 F5.BR5.U9.R5.D9.L5.BR10;US.BD2.F5.BD2. 
U9 BP5 R5 . BL 3 . D9 . BR 6 . U9 . P5 . D9 . BP1 0 . L5 . U 9 . BL 5 . B04 15 " 82 GOTO 80 
64 NN*="BM81.5"+N* NFS*"BM12.25"+F % 

86 IF LY-136 THEN DS*“BM22.5"+CS ELSE DS="BM10.5"+CS DRAWNNS 
88 DRAWDS DRAWNFS PETIJPN 

90 AS="BR9 BD1.U2.El U 1 El U 1 BD12.D1 H3.H4.H2.U1 H4.L3.G2D1 .G1.D5.F1.DI.F2 R3 
E3.U1.E1.U1.E1" 

92 BS="BD 6 .BR 6 L2.H1 Ull F4.P1 F 1 R 1 F1.DI.Gt.DI.G1 l 5 .R5.F 3 .DI G1 L1.G1:L4" 

94 OS*"BR3.BU2.U3;E1.U1.El.Pl:El.Rl.F 1 ;R 1 .F1.DI.F1.D5.G1.DI.G1.L1.G1.L1.H1.L1 H 1 
U1:H1.U2;R9" 

96 REM 4 COSTANTES Y ENTRADA DE DATOS ttttttttttttttttttttttttttttttttttttttt 

98 DATA 167.05. 172.46.176.58. 183.50.189.67 197.86. --06.45.215.S6.222.61 '■'33 75 '-4 
5. 12.255.57.270.91 ’ 

100 FOR 1=0 TO 12 READ RP' I) NEXT I 
102 PI=ATN'1)*4 FE*.9202 EF=1.0867 
106 CLS1 PPINT@0.JS+JS+-ENTRADA DE DATOS"*JS+JS 

f1ftSR LA VELOCIDAD Y EL RADIO DEL PROYECTIL SE CONSIDERAN 
IGUALES A LA UNIDAD. M 

110 RRINT@197 "DAR EL RADIO DEL BLANCO 'ENTRE 1 Y 3.5 UNIDADES)" 

112-INPUT R 

114 RRINT0292."DAR LA MASA DEL BLANCO" 

116 RPINT0354."SI SE LE DA EL VALOP CERO.EL PROGRAMA LO CALCULA.SUPONIENDO O 
UE EL BLANCO Y EL PROYECTIL TIENEN IGUAL DENSIDAD" 

118 INPIJT M 

120 RB=INT'PT5» R3-RB+5 E=RB+1 R4=P34-R3 
122 IF M*0 THEN M*RCR 
124 MM=1M+l » 

126 CLS2 

128 RRINT@192. " DESEA DIJE LA COMPUTADORA LE ASEGURE UN CHOQUE FRONTAL' 

'RESPONDER SI O NO)" 

130 INPIJT CFS 

132 X=X0 Y*YO XB=X2 YB*Y2 

134 PM0DE4 .1 SCREENl.0 PCLS 

136 CIRCLE'X.Y ».5. 1 PAINT'X. Y ». 1. 1 

138 GE I' X-El.Y-El)-' X+E1.Y+El ».R.G 

140 CIRCLE 'XB.YB ) .PB.1 RAINT'XB.YB *.I . t 

142 GET'XB-E.YB-E )-' XB+RB.YB+E <.B.G 

144 RUT 'X-E1.Y-E1 >-'X+El.Y+El ).P.PSET 

146 A*36 

148 LY=118+A'2 

150 LINE' X . Y 98 . L Y ». PSFT 

C = JOYSTK' 0 » IF CFS*"SI ” THEN A=36 ELSE A~JOYSTK'3 * 

154 L INE' X . Y »-' 90 . LY ». PRESE T 

156 C-PEEK* 65280 » IF C 125 AND C'' *253 THEN 148 

158 REM 5 PREPARACION DE LOS MOVIMIENTOS t tttttttt ttttttt tt tttt ttt ttt tttttttt 

ttt 

168 TI*' Y—LY <^80 T0=TITFE A0=ATN' T0 • 

169 T 1 =ATN' . 6 TFE » T2=SIN<A 8 -T 1 * T 3=< 84TFE ) 2+140* 140 T3=S0R' T3 )*T2-'R3 
164 IF ABS<T3>«'1 THEN 170 

166 WH*EF»' PI --2-A0 ) IF SGN' T3 )=1 THEN AF=PI '2 ELSE AF=-PIx2 
168 GOTO 172 

170 AF*ATN*. T3"SQRt -T3*T3+1 ) > WH=ABS' EF*' A 0 -AF • » AF=SGN' AF >t< RI-ABS' AF » » 

172 AA=-2*AF-A0 IF LY'136 THEN AA=3»PI-AA ELSE AA=-PI-AA 

174 C0*COS<Aú» SO=C0*T0 
176 SA=SIN» AA • CA=COS<AA » 

1 7k Vl=‘C0+MCCA **MM V2*-'S0+M»SA »TMM#EF 

180 V3=* C 8 -CA >tnn v4=-< so-sa >tmm 4 -ef 

132 U1*ABS' VI » U2*ABS' V2 » U3-ABSC V3 » 1 i4*ABS' V 4 » 

184 IF III IJ2 THEN 192 
186 IF H1- U3 THEN 198 

183 IF U1--IJ4 THEN T-4 GOTO 202 ELSE J *1 

isc, W*IJ 1 K=SGN'VI » C3-V2-U1 Cl=V3- iJl C2*V4'U1 GOTO 704 
192 IF U2' U3 THEN 198 

194 IF U2<U4 THEN J=4 GOTO 202 ELSE J*2 

196 VV*IJ2 t *SGN* V2 ) C3*V 1 'U2 Cl*V3 U2 C2=V4 •'U2 GOTO 204 
198 IF U3-U4 THEN t*4 GOTO 302 ELSE 1=3 

20O VV=U3 K=SGN'V3 » C3=V4'U3 C1=V1 IJ3 C2=V2 'U3 GOTO 204 
202 VV=U4 I -SGNC V4 » C 3=V3'IJ4 C1 =V 1 rl i4 C2=V2^U4 GOTO 204 
204 IR* I NT• RR' RB-5 )*VWC0-83 ) 

206 REM 6 MOVIMIENTO ANTES DEL CHOQUE ttttttttttttttttttttttttttttttttttttttt 
ttt 

208 TIMER=0 

210 X=X+1 Y=Y0— I NT' TI tt X-X0 )+S ) 

212 X3=X.-E 1 Y3=Y-E 1 X4=X+E1 f-4=Y+El 

214 IF Y3< =0 OR X4 =XL THEN X=X0 Y=Y0 GOTO \~<2 

216 FOR IL=0 TO IR NEXT 

218 D=<X2-X )*<X2-X>+(Y2-Y )*tY2-Y) IF D>R4 THEN PUT ' X3.Y3)-<X4.Y4 ) .P.PSET GOTO 2 
10 

220 T5~TIMER 

222 PUT • XB-E .YB-E )— XB+RB.YB+E ».B.OR 
224 X1=X Y1*Y 

226 REM 7 MOVIMIENTO DESPUES DEL CHOQUE ttttttttttttttttttttttttttttttttttttt 
ttt 

228 GOSUB 84 


230 1=0 TIMER*0 G0TÜ254 

232 X=X+K Y*INT'Y1+C34I+S » XB*INTCX2+C14I+S ) YB*INT'Y2+C2YI+S » GOTO 240 
234 X* INT' XI+C 3t I+S '» Y=Y+K XB*INTC X2+C 1*I+S » YB* INT' Y2+C2TI+S > GOTO 240 
236 XB*XB+K YB=IHT' Y2+C3*I+S) X=INTfX1+C1TI+S) Y*INT'Y1+C2TI+S ) GOTO 240 
238 XB=INT'X2+C3TI+S ' YB=YB+K X=INT< X1+C1TI+S ) Y=INT(. Y1+C2ÍI+S » 

240 X3=X—E1 Y3=Y-E1 X4=X+E1 Y4=Y+E1 

242 X5=XB-E Y5*YB-E X€*XB+PB Y6*YB+E 

244 IF X3' V0 OR X5'V0 OR Y3^V0 OR Y5"V0 THEN256 

246 IF X4-XL OR X6 XL OR Y4>YL OR Y6>YL THEN256 

248 RUT'X3.Y3 >-'X4.Y4 » P PSET 

250 RUT'X5.Y5W X6 Y6 •.B.PSET 

252 FOR IL=0 TO JR NEXT 

254 1*1+1 ON J GOTO 232.234.236.238 

256 T6=TIMEP 

258 REM 8 ESQUEMA DEL CHOQUE tttttt l tttttttttttttttrttttttttttttttttttttttttt 

ttt 

260 PCLS 

262 IF X'-36 OR Y-40 THEN GOSUB e4 GOTO 268 

264 NFS*"BM173.180"+F* NN*="BM242.160"+N* D**"BM172.160"+C* 

266 DRAWD* DRAIJNN* DRAWNFS 
268 CIRCLE < X0.Y0 * 5.1 
270 CIRCLE'XI.Y1 *5 .1 
272 CIRCLE'X.Y *.5.1 

274 IF P*1 THEN RAINT ' X0. Y0 *. 1 1 RAINT 'XI, Y1 •. 1. 1 PAINT ' X.Y>.1 .1 

276 L INF- X© . Y0 »-' XI .VI «. PSET 

278 L INE' X> . Y2 »-' XB . YB » PSFT 

388 C 1 pr L E* X2 . Y2 *. PB. 5 

282 r IRC LE- XB . YB ». RB . 5 

284 WR=5 WX=X0 WY=Y0 WT=TO WA=A0 WS=OS GOSUB 314 
286 IF M-l ANT* IY*196 THEN 294 
288 L INE* XI . Y1 >-» X .Y -. PSET 

290 W7=Vl W8*V2 UR*5 WX*::i MY*Y1 WS*AS GOSUB 304 
292 A2=W.7 AA=ATN' 2tWT*FF » IF A?=l THFN AA*F'I ?-AA 
294 U?=V3 W8=V4 WP*RB W: :*X2 WY=Y2 WS=BS 
296 IF M<1 THENWR=30 
298 GOSUB 394 

30O A3=W? AB*ATN'2»WTTFE • IF A3*l THEN AB=PI ' -*-AB 
302 GOTO 354 
304 W8*-W8 

306 IF ABS* W7 » 1E-5 THEN 312 

308 WT*U8 W7 WA*ATN* WT » IF W7 8 THEN 11A=WA+PI 
310 GC'TO 314 

312 WT=8 IFU3 >0 THEN WA*PI-'2 ELSE WA=-PI--2 
314 WR=WR+10 W6=WP+15 WT*ABS'WT ».'2 
s 16 IF WA O THEN WA=WA+2rRI 

'■¡I8 WA*WA-'2'RI • WA* 1 -WA IF l-JA=l THEN WA=0 
320 ON INT'4»'WA+.249 ' )GOTO 334.338.326.322 

322 WZ=0 W4*8 W 3=WA W5*WX+W6 W2=WY-INT<W6TWT • W1=W5 IF W2 75 THEN W2=75 
324 GOTO 348 

326 WZ*1 W4*WA W3*.5 I45*WX-W6 W2*WY-INT' W6TWT) W1=W5-16 IF W2'75 THEN W2*75 
328 GOTO --¡40 

338 WZ=1 W4+.5 U3-WA W5-WX-W6 W2*WY+1NT'W6TWT ) W1=W5—16 IF W2'160 THEN W2=160 
332 GOTO 340 

334 WZ-0 W4=WA W3=0 W5*WX+W6 W2=WY+INT' W6TWT • W1=W5 IF W2 160 THEN W2=160 
336 GOTO 340 
338 GOTO 322 

340 IF ABS'W3-W4 • .02 THEN CIRCLE' WX. WY » WR Vl.W?.W4 
342 L INE*' WX . WY —' W5 WY *. PSET 
344 WXS=STPS'W1 ■ WYS=STPS' W2 • 

346 WS*"BM" + W.XS+* . "+WYS+WS 
348 C'PAW WS 
350 RETIJRN 

352 REM 9 TABLAS ' OPCIONES FINALFS 111 tt ttt ttttttttttttttttttttttttttttttttt 


354 AG=AATI80^PI BG*AB»180xpI OG=A0T180^PI 
356 IF LY=136 AND M*1 THEN AA~8 AG*A 


358 

360 

362 

364 

366 

368 

370 

372 

374 

376 


382 

384 

236 

388 

390 

392 

396 


U2=U2YFE IJ4=U4*FE 

U6=SQR'IJ3*U3+U4*U4, IF M*1 AND LY=136 THEN 115=0 ELSE 
E1S="PR0YECTIL" E?S="BLANCO 
IF INKEYS< >"C“ THEN 364 
CLS7 

PRINT@0." AHORA PUEDE OPTAR ENTRE " 

PRINT@64.“1 FINALIZAR" 

FPI NT@ 128 . " 2 NUEVO*:. PRPRHE TRO c -" 

PRINTQ160."3 UN NUEVO DISPARO" 

RPINT0192.”4 REPETIR ESTE CHOQUE" 

RRINT0256. "5 RECOBRAR DIAGRAMA t*EL CHOQUE 
PRINT0320. "7 RECOBRAR DIAGRAMA GUARDAC-n•• 

PRINT@384."8 TABLA DE VALORES" 

PF iHTr«416 "9 TABLA DE AUTOE'v'ALUAC ION" 

PPINT0480. "OPCION ELEGIDA " INRijT IC 
ON IC GOTO 484.106. 126.3«»6 4O0 an? 406 .408 4 24 
CLS8 PPINT020O "OPCION INCORRECTA". 

PRINT@264. "RAPA CONTINUAR PULSE C •• r.OTO 3*4 
X*XO Y*Y0 XB*X2 YB*Y? PMODE4 1 5rPEEN 1.0 PCLS 
PIJT ' XB-E . YB-F >— :-:B+PB . CB+E *. B. PSET PUT' -El. V- 


' iji tijl +1.1? tu? 


6 GUARC-AR DIAGRAMA EN MEMORIA" 


* P PSET GOTO 


408 RM0DE4.1 SCREENl.8 GOTO 364 

482 FOR 1=8 TO 3 PCORY 1+1 TO 1+5 NEXT I 

484 CLS1 PPINT0272.“REALIZADO" FOP 1=1 TO 500 NFXTI GOTOSES 


488 CL SI PPINT i»n ts*» S+ -TABLA DE RESULTADOS"♦ JS+KS+CHRS' 159 *. 

410 PRINT064.GS+JS+fS+"MASA" +JS+CHRS' 159 *+"RADTO"+KS 
412 E3S=" V. X «.««« +««#.# +#.«# • 

414 PPINT 0132.E1S+" 1.08 1.0" 

416 FRINT USING" BLANCO *»*.** #.*•• M R 

418 PPINT@.?24 . GS+CHRS' 159 )+“VELOCIDAD"+KS+"ANGULO" +JS 
•120 PRINT0276 . "GRADO RADIAN". 

422 RRINT0288."ANTES DEL CHOOE" 

424 PRINT USING E3S E1S V8.OG A0 
426 PRINT8384."DESPUES DEL CHOQUE" 

428 PPINT USING E3S E1S.U5.AG.AA 
430 PPINT USING E3*.E2».U6.BG AB 
422 GOTO 364 

434 CLS1 PPINT0O . TS+T*+•• AIJ TOE VALUACION "+JS+JS. 

436 L1=X1-X0 L2=* Y0-Y1 )TFE L5=XB-X2 L6=‘Y2-YB»TFE 

438 A1=ATN' ABS'L2^L1 » » A4*Altl80/RI IF ABS' 1.5 • 1E-5 THEN A6*PI Z ELSE A6=ATN'ABS 
< L6'L5 »> 

440 IF A3=1 THEN A6*RI 2-A6 


442 L7*SQR' L1TL1+L.3TLZ » l «**SQP'L5n 5+1 6TI 6 • 

444 IJ7=L7.'T5 U9=L9.'T6xU7 

446 IF M=1 AND LY=136 THEN L8*0 A2=0 A5=0 U8=0 GOTO 450 ELSE l.8*X-X1 L4=' Y1-Y »TF 
E L3=SQR' L3TL3+L4TL4 ) U8=L8/T6-'U7 

448 IF ABS'L3)>0 THEN A5=ATN'ABS'L4.'L3 > > ELSE A5=PI 2 
450 IF A2=1 THEN A5*PI '2-A5 
45.2 A7*A5T180 PI A8*A6T180 'PI 
454 LS=GS+GS+GS+KS PRINT «32.LS. 

456 PPINT 064."VELOCIDAD INICIAL PROYECTIL * 1" 

458 PPINT @96.LS. PRINT @128."VELOCIDAD TEORICO CALCULADO" 

468 E4**"*í X #.### #.###" 

462 E5S="-'. 3+###. n +*.## +###.!» +*.##" 

464 E6S="THETA" E7S*"ALPHA" E8*="BETA " 

466 PPINT@ 193. USING E4S . E 1S . IJ5 . U8 
468 PR1NT0225.USING E4S.E2S.U6.U9 
478 PRINT@256,LS 

472 RP INT0289 . " ANGULOS TEOPICO r AL CIJLADO" 

474 PRINT@327."GRADO RADIAN GRADO RADIAN". 

476 PRINT@385.USINGE5S.E6S.OG.A8 A4 Al 
478 RRINT@417.USINGE5S E7S.AG AA.A7.A5 
430 PPINT0449.USINGE5S.E8S.BG.AB.A8.A6 
482 GOTO 364 
484 END 






posteriormente. Esta opción pue¬ 
de suprimirse fácilmente al adap¬ 
tar el programa a otro ordenador 
de menor memoria. 

El ordenador medíante su reloj 
interno puede medir el tiempo 
durante eí que se mueven los 
discos, antes y después del cho¬ 
que, y de esta forma calcular sus 
velocidades. La comparación de 
estos valores con los datos teó¬ 
ricos que se calcularon previa¬ 
mente al choque, se realiza me¬ 
diante la tabla de autoevaluación 
{opción 9) y permiten una primera 
estimación de la bondad de la 
simulación. 


Obtención de IR 

Si se modifica el programa será 
probablemente necesario variar la 


sea VV respecto de C0 r mayor 
habrá de ser el valor de IR. En el 
caso de choque frontal VV/CO 
sólo depende de la masa del 
blanco. 

La expresión que nos da los 
valores de IR en función de los de 
W/CO se ha conseguido ajustan- 
do los pares de valores obtenidos 
mediante una recta, que llamare¬ 
mos, recta de calibrado (línea 
204). 

Como el tiempo que el ordena¬ 
dor emplea en ejecutar la senten¬ 
cia RUT depende de las dimen¬ 
siones de la matriz, es decir, del 
tamaño del disco, hay que obtener 
una recta de calibrado para cada 
uno de los 13 posibles tamaños 
del disco que corresponden a los 
respectivos valores de RB (línea 
120). Como todas estas rectas de 
calibrado tenían una ordenada en 
el origen muy similar, hemos 


dan los valores de IR y de VV/CO y 
se pide un nuevo valor de IR. Si 
una vez elegida esta opción se 
desea volver al menú es suficien¬ 
te dar a IR el valor 0.1. El valor de 
IR también puede introducirse al 
comienzo del programa o al dar 
unos nuevos valores de los pará¬ 
metros (opción 2). 

En el caso de que sea necesa¬ 
rio ajustar JR se hará de forma 
similar. En ninguno de los dos 
ajustes es necesario considerar 
valores de M mayores de tres, ya 
que en este caso VV=0.5, el 
menor valor posible. 

Nota sobre 

las dimensiones de P y B 

Las matrices P y B que permi¬ 
ten guardar los discos proyectil y 
blanco se han dimensionado co¬ 
mo vectores, o matrices de una 
dimensión, en lugar de matrices 
de dos dimensiones y con unos 
valores de éstas muy inferiores a 
los indicados por el manual. 



expresión que 
nos da el valor 
de IR, número en¬ 
tero y positivo que 
determina el máximo 
valor del índice del bu¬ 
cle de frenado. Para ellose 
comienza calculando, por tanteos 
sucesivos, el valor de IR, en el caso 
de choque frontal; para un valor 
dado del radio del blanco y para 
diferentes valores de su masa (por 
ejemplo, M=Q,01, 0.1,0.25, 0.5, 
0.75, 1, 2 y 3). Gracias al diseño 
del programa, una vez ajustada la 
velocidad en eí caso choque fron¬ 
tal, queda automáticamente ajus¬ 
tada en los demás casos posibles. 
El movimiento del disco pro¬ 
yectil antes del choque se con¬ 
sigue aumentando sucesivamen¬ 
te en una unidad la componente 
horizontal de su centro. El valor de 
la componente vertical se calcula 
de modo que el desplazamiento 
del disco sobre la pantalla se 
ajuste lo mejor posible a la recta 
seleccionada por el joystick. Por lo 
tanto, la rapidez del proyectil 
antes del choque está relacionada 
con la componente horizontal de 
su velocidad definida por la varia¬ 
ble CO (línea 174), 

Los movimientos del proyectil y 
del blanco después del choque, 
vienen regidos de forma similar 
por el valor de la mayor de las 
componentes de las dos veloci¬ 
dades, definida por la variable VV 
(líneas 190 a 202), Cuanto mayor 


promediado estos valores obte¬ 
niendo el de -83. Ahora se ajustan 
unas nuevas rectas de calibrado 
cuya ordenada en el origen sea - 
83. Las pendientes de estas 
rectas vienen dadas en la línea 
98. 

Si sólo se desea estudiar 
cualitativamente el choque, no es 
necesario realizar este calibrado, 
pudiéndose considerar IR—0. Tam¬ 
bién puede calibrarse sólo para 
algunos valores de R. 

Para obtener los valores de IR 
que permiten calcular las rectas 
de calibrado, es conveniente rea¬ 
lizar las siguientes modificaciones 
en el programa presentado: 

— Inutilizar o eliminar fas líneas 

98 y 100. 

— Sustituir 364 por 132 en la 
línea 482, INPUT M por ÍMPUT 
M, IR en la 394 y toda la línea 
204 por REM. 

— introducir las líneas 1 19 INPUT 
«IR= K\n y 481 PRINT - IR— ; 
IR,«W/CO - ;VV/CO: INPUT 

IR= »; IR: IF IR= 1 THEN 366 
132. 

De esta forma, al final de la 
tabla de autovalores (opción 9) se 


Explicaremos la forma de obtener 
esta dimensión ya que su justifi¬ 
cación es que el programa fun¬ 
ciona correctamente y con un 
gran ahorro de memoria. 

Cada dimensión de una matriz 
supone 5 bytes de memoria, es 
decir, 40 bits, mientras que un 
solo bit nos permite determinar el 
estado de cada punto de la 
pantalla en PMODE4. Por lo tanto, 
cada dimensión nos permitirá 
guardar el estado de 40 de estos 
puntos. Teniendo en cuenta que 
la sentencia GET es 

GET(X1 ,Y1 )-(X2,Y2),B 
las dimensiones del rectángulo 
definido es (X2-X1+1 MY2-Y1+1), 
ya que hay que considerar los dos 
puntos extremos de cada seg¬ 
mento. Para guardar este rec¬ 
tángulo definiremos B como una 
matriz cuya única dimensión vie¬ 
ne dada por: 

INT (área del rectángulo-1 )/40) 
=INT((X2-X1 +1 )*(Y2-Y1 +1 }/40)) . 
Recuérdese que la enumeración 
de los índices comienza por cero. 

Christian Wagner (*) 

O Doctor en Ciencias Físicas Cate¬ 
drático de Física y Química de/1. B. Mixto 
de Arcos de i a Frontera {CADIZ). 
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Avión 

espía 

para-TZ 52 


En cuanto haya despegado 


La TI 57 es lo suficientemente una de las cuatro casillas que 


potente como para mandarla en rodean el silo del misil. 


está localizado y el misil le per¬ 


misión aérea. ¡Cuidado con tos 


sigue. Cualesquiera que sean sus 


misiles! 

Desde hace poco, la potencia 
bélica enemiga despliega sobre el 
teatro de operaciones unas insta¬ 
laciones de defensa aérea terri¬ 
blemente eficaces, que impiden 
la penetración de los bombar¬ 
deos en un perímetro muy 
importante (Fig. 1). 

En cuanto penetra un avión 
en esta zona, lo percibe el dis¬ 
positivo radar de la base anti¬ 
aérea y un misil de cabeza bus¬ 
cadora encerrado en un silo 
(coordenadas x=5, y=5) es lan¬ 
zado automáticamente e intenta 
destruirlo. Su misión consiste 
en sobrevolar uno de estos nue¬ 
vos dispositivos antiáereos para 
fotografiarlo a baja altitud y vol¬ 
ver ileso a su base con las fotos. 

Mientras dure esta operación, 
el misil le perseguirá, pero su 
avión-espía está equipado con un 
radar de a bordo, que, con ex¬ 
celente precisión, le comunicará 
(a posición del misil. Cuanto 
más se aproxime dicha posición 
a la de su avión, tanto más esta¬ 
rá amenazado. Si las dos posicio¬ 
nes son estrictamente idénticas, 
significa que el misil le ha alcan¬ 
zado (auténtica Perogrullada ). 
Seguramente le condecorarán a 
título postumo, y nadie verá 
nunca las fotografías del dis¬ 
positivo enemigo. 

El avión-espía se desplaza de 
una casilla a la contigua, según 
el eje "x" o el eje "y”, o bien 
en diagonal (Fig. 2). Por lo 
tanto, en todo momento, puede 
escoger entre ocho direcciones 
posibles. 

La pista desde donde despega 
está situada en el borde del perí¬ 
metro prohibido; por lo menos 
una de sus coordenadas es 
obligatoriamente <¡> o 1 <f>. Es en 
esta misma pista donde debe vol- 


Listado del programa 


N° de 
paso 

Código 

Tecla 

00 

32 

1 

STO 1 

01 

81 


R/S 

02 

32 

2 

STO 2 

03 

33 

1 

RCL 1 

04 

65 


— 

05 

33 

3 

RCL 3 

06 

85 


= 

07 

22 


x 

08 

33 

2 

RCL 2 

09 

65 


— 

10 

33 

4 

RCL 4 

11 

85 


= 

12 

- 27 


R -*P 

13 

32 

6 

STO 6 

14 

22 


x 

15 

32 

5 

STO 5 

16 

01 


1 

17 

83 



18 

02 


2 

19 

32 

7 

STO 7 

20 

33 

5 

RCL 5 

21 

- 76 


x < t 

22 

48 

0 

Fix 0 

23 

19 


C.t 

24 

33 

0 

RCL0 

25 

22 


x 

26 

33 

6 

RCL 06 

27 

27 


P-*R 

28 

34 

4 

SUM 4 

29 

33 

4 

RCL 4 

30 

81 


R/S 

31 

22 


x 

32 

34 

3 

SUM 3 

33 

33 

3 

RCL 3 

34 

81 


R/S 

35 

48 

1 

FIX 1 

36 

71 


RST 

37 

86 

1 

Lbl 1 

38 

- 19 


INV C.t 

39 

48 

1 

Fix 1 

40 

05 


5 

41 

32 

4 

STO 4 

42 

32 

3 

STO 3 

43 

10 


CLR 

44 

81 


R/S 

45 

32 

0 

STOO 

46 

15 


CLR 

47 

81 


R/S 

48 

71 


RST 


ganas de huir, no olvide que tie¬ 
ne que sobrevolar una de las ca¬ 
sillas de la base enemiga (para 
fotografiarla), antes de poder 
refugiarse en su punto de sali¬ 
da. , 

En la TI 57, el programa 
ocupa 49 pasos (0 a 48). En el 
paso 45, se coloca en la memoria 
0, el nivel de dificultad (1,10 a 
1,50). En los pasos 00 y 03, 
las coordenadas (x,y) de su 
avión están almacenadas, respec¬ 
tivamente, en las memorias 1 
y 2. Al principio del juego estas 
coordenadas son las de su pista 
de despegue: Es ahí donde ten¬ 
drá que volver para acabar su 
misión, es vital no olvidarlas. 

El resto del programa calcula 
y visualiza las coordenadas del 
misil, después de cada uno de 
sus desplazamientos. 

Para empezar el juego: SBfí 1 . 
La TI 57 visualiza 0. Debe in¬ 
troducir el nivel de dificultad 
deseado (de 1,10 a 1,50) y pulsar 
fí/S. De nuevo 0 en pantalla. 
Debe indicar la abscisa de su 
pista (presione R/S) y luego la 
ordenada. 

Un tercer toque de la tecla 
R/S inicia ahora el cálculo y 
visualización de ta ordenada de! 
misil, con una precisión de un 
decimal. Nueva pulsación de R/S 
y mismo tratamiento para la 
abscisa del misil, aquí también 
la precisión es de un decimal. 

Introduzca la nueva posición 
de su avión, recordando que 
los únicos desplazamientos auto¬ 
rizados son los de la figura 2. 
La calculadora le da entonces 
la nueva posición del misil 
(ordenada y luego abscisa), y así 
sucesivamente. 

Importante: La eficacia det misil 
es tan temible que no se puede 


ver a tomar tierra, después de Queda sólo paso libre para posibles navegar con aproximaciones. Ha- 


haber sobrevolado en diagonal mejoras ... 


brá que disponer de una tabla 
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floricultura 

horticultura 


FIg. 2: Cuando el avión-espía se en * 
cuentea en A f hay que escoger entre 
ocho direcciones. 

10x10 que represente las cien 
casillas de la zona prohibida, en 
la que se tracen con dos colores 
distintos, las trayectorias del 
avión y del misil. 

Por último, no olvide que el 
misil puede alcanzarle, in extre- 
mis, en la pista de aterrizaje. 
Una vez que haya introducido 
las coordenadas de la base jUíl), 
tenga el valor de mirar las del 
misil... Tranquilícese: Ya se han 
visto supervivientes.... 

Y van Yourassowsky 


Fig. 1: En trazo continuo la trayectoria del avión, en punteado la del misil. En 
6,5 el silo del misil. 


Departamento de Publicidad: 

Ferraz, 11. Madrid - 8. 

Téls.: (91) 241 34 00 -247 30 00 
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Supervisión 
de cuentas corrientes 
con un Sharp PC-1211 


Este pequeño programa de gestión, será muy útil 
para ordenar cantidades a partir de un valor nu¬ 
mérico que puede ser una fecha, dando después 
un balance en cada una de las cantidades. 


El programa, prevee que vamos 
a supervisar los movimientos de 
tres bancos y asi lo primero que 
hace cuando le damos en el modo 
DEF el comando SHFT C, es 
preguntarnos por el saldo inicial 
que tenemos en cada uno de los 
tres; o sea SAL 1, SAL 2, SAL 3, 
que daremos respectivamente con 
las cantidades adecuadas. Tam¬ 
bién nos pregunta el AÑO en que 
deseamos situar estos movimien¬ 
tos, cosa que hace con la pregun¬ 
ta A # O con lo que le responde¬ 
remos sólo con 2 cifras, por 
ejemplo 83 para el presente año 
1983. 

Después de ésto, nos pide 
BANCO y FECHA en la forma 
FECHA, que hemos de responder 
con 5 cifras B XY MN donde B es 
el banco en que se produce el 
movimiento que puede ser 1, 2 ó 
3, XY es el número del mes que 
será 01 para Enero, 02, para 
febrero hasta 12 para diciembre, 
por último MN es el día en que se 
produce el movimiento que será 
desde 1 a 31, 

A continuación nos pedirá la 
CANTIDAD, en la forma CANT, 


pero hay que darla con signo 
cambiado, es decir, ingresos como 
negativas (por comodidad, ya que 
suele haber más salidas que 
entradas), 

Si deseamos ver cuáf fue la 
última entrada, en lugar de FE¬ 
CHA le damos Exp9 (ENTER). 

También en caso de confusión, 
cuando queramos repetir una 
entrada, se hace con sólo (EN¬ 
TER) con lo que borra la última 
entrada que se hizo. 

Una vez terminada la entrada 
de movimientos, por medio de 
SHFT B, se ejecuta un programa 
que ordena los movimientos por 
Banco en primer lugar y por fecha 
en segundo lugar, dando el balan¬ 
ce de cada movimiento. Para esto 
es conveniente utilizar la impre¬ 
sora. 

Para introducir más movimien¬ 
tos, podemos hacerlo con SHFT 
A 

Si deseamos listar de nuevo la 
salida de movimientos, sin nece¬ 
sidad de ordenarlos, haremos 

SHFT L 

Para grabar los datos a cas¬ 
sette haremos PRINT#«8301»; H 


en caso de tratarse por ejemplo 
del primer trimestre del año 83. 

Para recoger desde el cassette 
INPUT#«8301»; H, 


lOsPRINT "ERROR 
fí 2 STOP 

iüü: 11 COCLEAR : 
INPUT "SALI 
11 5 Ms "SAL2 "¡ 
N? "SAL3 ";ü * 
"ANO 11 5 H 

105:"A"¡IF I>=1 
LEI H=E-l: 
PAUSE "ANTER 
■"ÍA(D) 

11Q!E=17+'I:F=67+ 
isINPUT "FEÜ 
HA "'ACE >:I = 
1 + 1 :GOTO 112 

111 • 1=1^1sGOTO 1 
05 

1122IF A<E>=E9 
LET 1=1-1: 
GOTO 105 

120sINPUT "CANT. 
H ;A<F>sACF)= 
-ACF> íGOTO 1 
26 

1261IF I=50G0T0 
170 

130:IF I>=45G0T0 
150 

140;GOTO 110 

1 Su i PAUSE t: I j 50: 
büTO tlü 
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EJEMPLO ORDENADO 


i?0:"B"F0R B=17 
TC¡ IH5 

1 SO“FCSR C-B+ITO 

1+16 

1 y O * IF P i - B ,- e < = A £ C 
JODIO 210 
20E?D=A<B)sA<B>= 

A L ’ !i i -, L- .- 1 =D ■ 

E-B+S02F=C+5 
O 5 B=h ¡ -. E :■ ” A E 
>=AÍF>í A(F> = 
D 

210' NE>iT C 
220SNEXT B 
3íü^L"FÜR E“1T 
Tü 1+16 

320 f C~ I NT < A < B > 
E4 1 ¡A=B+5Ü“ 
IF C=DGuTO 1 
O 

325*IF B-ITGOTO 
355 

330- IF COFGÜTÜ 
350 

335 - P=P+A í A >: D-A 
(B>-E4+C:s 
PRINT " “5D 

; E! m ;a<a>: 
PRINT R:F=C¡ 
GOTO 360 
340fP-P+A<A>: 
PRINT E4*H+A 
í;B>~E4+C; " 
M Sfl<A): PRINT 
PíFCGuTü 3 
60 

350:D=9+F2ACD>=P 
355-B-12+Cs 

>sprint 3a !J í 
PRINT "BANCO 
11 i C: PRINT FS 
M “F-C¡GOTO 
340 

3603NENT B 
3 í'=J ? D=9+F » h D — P 

i;-lins ENB 

•JOOS "M" s FOR E=í 
Tü i 06 

Oto:IF A(E>=0 
ijijTD y 30 

920:PRINT""MEM " 
SET 1 "; A<E> 
9303NEHT E 
940!END 


Es difícil que una persona 
tenga más de 50 movimientos en 
un trimestre, por lo que por 
ejemplo, sería una forma de 
organización, hacerlo por trimes¬ 
tres que se guardan en cassette 
con los nombres. 

1er. trimestre del año 1983 8301 
2 q trimestre del año 1983 8304 
3er. trimestre del año 1983 8307 
4 e trimestre def año 1983 8310 

Félix Gutiérrez 


En esta parte describiremos 
cómo se desarrolla un ejemplo 
paso a paso. 

Una vez el programa en Ja 
máquina, al teclear SHFT-C lo 
que nos pregunta la máquina es 
SALI que significa Saldo 1, o sea, 
el saldo en el primer banco y le 
daremos 95406 a continuación 
después del enter por supuesto 
nos pregunta por el SAL2 y le 
daremos por ejemplo 81283 y o 
continuación el SAL3 al que 
contestaremos con 2265, des¬ 
pués nos pregunta por el a#0 y le 
daremos las dos últimas cifras por 
ejemplo de la primera entrada que 
le daremos en el formato BXYMN 
donde B es 1 2 ó 3 según el 
movimiento pertenezca a! banco 1 
2 ó 3, XY es el mes, o sea, 01 para 
enero, 02 para febrero y así hasta 
diciembre y por último MN que es 
el día en que se produjo el 
movimiento, empezaremos dicién- 
dole FECHA 30314. 

Acto seguido nos pide CANT, y 
le contestamos 280 teniendo en 
cuenta que esta cantidad fue 
extraída del banco, o sea, es 
negativa y así en este ejemplo 
hasta 27 movimientos. 

Una vez introducidos todos, 
damos SHFT-B con lo que se 
ordenan por orden creciente de 
banco y fecha y termina listando 
movimientos con saldo en cada 
uno. 

En el supuesto de querer 
obtener otra copia haremos SHFT 
-L, para introducir más moví- 
miemos lo podemos hacer con 
SHFT-A y después el mismo 
proceso anterior y por último para 
obtener un volcado de ía memoria 
con SHFT M 

Para grabar datos al cassette ío 
hacemos con PRINT# 8101 ; H y 
para volverlos a copiar desde el 
cassette con 1NPUT# 8101 ; H, 
teniendo en cuenta de que el 
número máximo de movimientos 
que se pueden almacenar es de 
50, cada cual se lo organiza por 
trimestres, semestres u otra for¬ 
ma. 

Si durante la entrada de datos 
olvidamos cual fue la úítima, con 
Exp9 nos dice cuál fue la anterior 
para que podamos seguir y si 
hicimos una entrada errónea con 
ENTER nos borra el último movi¬ 
miento. 

Por último queda el listado 
obtenido con los datos introduci¬ 
dos en el ejemplo. 
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Máquinas tragaperras 

OP-FRUTT 

para Spectrum 48K 


Quizá más de una vez se haya quedado con las 
ganas de seguir jugando a la máquina tragaperras 
de su bar habitual, y no haya podido hacerlo por¬ 
que se quedó sin dinero. Ahora tiene la posibilidad 
de convertir su SPECTRUM en la más moderna 
máquina tragaperras y jugar cuanto quiera sin pre¬ 
ocuparse de su bolsillo. 


El juego 


Acomódese, tras cargarse el 
programa con LOAD " " aparece 
¡a publicidad. A continuación la 
máquina le invita a jugar a fa vez 
que le advierte que sólo da el 
64,4% de sus ganancias, adver¬ 
tencia que no le dejará mientras 
esté jugando; pero no se pre¬ 
ocupe, es bastante más de lo que 
suelen ofrecer este tipo de máqui¬ 
nas, Además jugando los avances 
inteligentemente, Vd podrá variar 
ese procemaje a su favor. 

Ante Vd. aparecerá una máqui- 
na tragaperras de las de tres ven¬ 
tanillas. En la parte inferior de la 
pantalla se le ofrece la siguiente 
información adicional: 

Credit: es el número de parti¬ 
das de las que dispone. 

M Gastadas: Las monedas 
totales que lleva gastadas 
desde que empezó a jugar a 
la máquina. 

M. Ganadas; las monedas tota- 
fes que lleva ganadas desde 
que empezó a jugar a la 
máquina. 

Dif.: es el número neto de 
monedas ganadas o perdi¬ 
das desde que empezó a 


jugar. No es más que la dife¬ 
rencia entre M. Ganadas y 
M. Gastadas. Si es un 
número positivo irá ganando 
dinero, si no irá perdiendo. 

Bajo estos rótulos aparecen 
estos valores en monedas y una 
línea más abajo los mismos valo¬ 
res en ptas., teniendo en cuenta 
que cada moneda tiene un valor 
de 25 ptas. Pues bien, ahora tiene 
las siguientes posibilidades: 

— Introducir una moneda de 
25 ptas, en la máquina: esta 


acción se simula pulsando la tecla 
P. Si fa pufsa varias veces la 
máquina almacenará los créditos 
y podrá seguir jugando mientras 
no se le terminen. 

— Tirar de la palanca: se 
simula pulsando la tecla B de su 
ordenador. En la máquina empe¬ 
zarán a oscilar las figuras y se 
fijará una combinación, Sólo fun¬ 
cionará si tiene créditos, si no 
introduzca una moneda en la 
máquina (es decir, pulse P}. 

— Poner los contadores a cero: 
pone a cero los contadores de M 
Gastadas, M. Ganadas y Dif, (pero 
no el de Credit) para saber cuanto 
ganamos o perdemos desde este 
mismo momento. Se consigue 
pulsando la tecla 0 (letra, no el 
número cero). 

— Destruir el programa: Pul¬ 
sando T y siguiendo las instruc¬ 
ciones del mismo. 
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75 0 
b¡ * 6 
76^ 
770 


IF O R 


THEN LET 


IF ri3*0 THEN LET c = 3 
ir H3=9 THCN LCT CÍ3-5 
700 LET X=2: LET U =20 
7 5 Ci FOP n = 0 Tfl 5 
TgQ PRINT FLRSH 1;RT x+n,g; 


79 1 
7 92 

79 7 

lis» 


ne>ít n 
FQR uu s0 
L ET í, se 1 
GO 5UB C#1O00 


TÜ 1S0: WEXT w 


JO 5 

* 


IDHT i- PP í NT 1MK 7; RT x 


PER 


Íói 

y +4., ”, '• 

I"R INT 
1040 PRINT 
3.060 PPINT 
10-70 PPINT 


10?0 PPINT 

1090 INK 3 

, y +2; - ‘l " 

1100 PRINT 


fiT 

RT 

RT 

INK 


INK ©■ 

* , y +s; 
x +1 / y ; 
x +2 , y; 

3; PT 


PRINT RT x 


Jl| 


x +3,y ; 


ÍNK 3;flT x+3 

PRINT PRPER 


¡■¡¡ra+" 


y 4-3 


+ 3 j y +3j 


PRPER 7 > RT 
1110 PRINT PRPER 0;RT X+3,y+4J "i 


PPINT RT *43,y 45;“ 
PRINT AT X+4. í y;"*B 
1130 PRINT RT X+E,y¡ " 
1140 PAPER 6 

INK 0: BRIQMT 0 

ir i. *0 meN return 
GO TO ¿1000 
1 S00 BPIGHT Ir PRPER 2 
150S " ' 

1S1Ü 


II lí 
1120 


1150 
1 150 
1170 


r N K 6 
PRINT 
15£© PRINT 
1630 PRINT 

1540 PRINT 
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P i x n j (■ 

RT x +1 , y ; fl «B'* 
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RT 
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RT 

x +3,y; " 

m 

1570 
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PT 
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PAPER 7,RT 
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1565 
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RT 

x + 4 , y + 3 


15 90 

PRINT 

RT 

x +5 , y ; r ‘ 

16 00 

PRPER 

A 



1601 

INK 0 ; 
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16 10 
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4 Ü 0 © 
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PR IMT 

RT 
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«1 
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RT 

30 7© 

PRIÍiT 

RT 

X + 3 

, y 

44 

30 00 

PRINT 

RT 

X 4 4 

^ y 



I- 1 I NT 

RT 

X 4 5 

■ y 


3 100 

PRINT 

INK 

3 ; 

RT 

X 

3 1 10 

PRINT 

RT 

x 45 

^ y 

43 




+3,y43, 


4 +2 . 



pflPÉp 

F, 

3 130 

INK O : 

ERIQHT 0 

3140 

IF l =Ü 

THEN RETO 

3160 

GÜ TO 

4000 


BRIGHT 

1: INK 6 


PRPER 

S 

35 10 

PPINT 

m "t x , y * 

3520 

PRINT 

ftT x + i y 7 

253 0 

PRINT 

AT x+2 , y; " 

3E40 

PR INT 

RT x m , y ; 

3S50 

PRINT 

RT K 4 4 , y j 


PRINT 

RT X tS , y ; " 

■3 5 7 0 

INK 0 : 

C-RIü MT 0 

350 0 

PRPER 

A 

3590 

IF l 

THEN PFTU 

4 0 00 

REM Cq 

rfi p r o b 3 r p c 

40 1© 

IF a = 1 

hND b=l ñ 

LET 

P r « ín i o 

= ; G O T o 

4© 15 

G O T ü 

4050 

4 0 2O 

RRI NT 

RT 15,19; p 

4030 

BEEP . 

3,7: BEEP 

.3,5: 

BEEP 

*7,4 


ÍH 

ij* A M E 


RN 


40, 


Q - 

E-i 

¿0 


■HEN 


remio 

. 3 ,, 0 : 


BEEP 


4031>BEEP *3,7: Bí 
- 3,12 : BEEP . 5,1¡ 
PRUSE 1© 

4032 BEEP -3,-7; BEEP 

,3,5: BEEP , 7,4 

4033 BEEP ,3.7' BEEP 
.3,15: BEEP .5,11 

4040 co TO 5030 
4350 IF S=l,5 RNO b = 
G THEH LET P r í Fít i ü »1 ; 
4055 QQ TO 4-000 
4050 PRINT RT 15,19: 
4053 BEEP .2,19:'BEE 

P ,2,19: BEEP .5,19 

4064 BEEP .2,17: EEE 
P ,2,17: BEEP .4,10: 

PRU3E I© 

4065 BEEP ,2,16: 6EE 
P .2,IB: BEEP .4,16: 
4055 BEEP .2,16: BEE 
P .2,16: BEEP .2,1* 


*7,14: EEEP 

BEEP .7,11: 

.3,6: BEEP 

.7,14: BEEP 


1.5 RND C = 1. 
GO TO 406© 

P r e tu i o 

P .2,19: BEE 

P .2,1.6; BEE 

BEEP .7,21: 

P . & , 16 ; BEE 

PRU5E 13 
P .2,16: BEE 


4067>BEEP .2,17- BEEP 


p 

4 07© 

40S© 

LET 
40B5 
409 0 
4093 
P .£>33 
BEEP .4 


12 

GO T Q 6 Ó O © 

IF íí»s¡¿£ R M D b 

pre PTC i O = 6 : GO 
GO T O 5 01© 
PPINT RT 15, 
BEEP .5,36:‘ 
BEEP .4 , 
20: BEEP 


,14: BEE 


2 4 

4094 BEEP . 

R <Í,,S5: B E 

f¡ 0 0 0 n n to 

531© IF 3=2 
5 THE N LET 
501S QO TG 

5320 PRINT 

5023 BEEP . 

P -7,1©: PR 

5024 BEEP . 

P ■3,16■ BE 


¡sf , «3 : 

CP ■ 3 , 
©000 
.5 RMD 
p r e to i o 
5040 
RT IB , 
6 , 1© : 
UBE 10 
4,21; 
EP , 3 , 


■ 2 R 

TO 

19; p 
B6Ep 
33 : 

- 4 , 

BEEP 
26 : 

b=2 

= 10 : 

19; f , 
BEEP 

BEEP 

14- : 


NO THEN 

409© 

refH o 

,5,35: BEE 
BEEP ,4,31; 
26; EEEP .6 

.2,24; BEE 
BCCP ,©,£4 

tS ANO C =2 * 
GO TD S0£fl 

e rr ¡ i o 

.i.U: BEE 

.5,19: BEE 

BEEP .5,1© 


5025 "> BEEP 
6E 10 

5026 EEEP 


.3,19: BEEP .5,14; PRÜ 
.4,14; EEEP .4,16: BEE 
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P . 4, 
BEEP 
7 

P -5, 
BEEP 
503© 
S©40 
LET 

5 06© 
5063 
.5,2; 

10 

S055 

. s . a¿ 

• .' , -.-' 


.3.ai: BEEP 

i 3 

, 17; 

19: BCEF .3, 

16 : 

BEE 

E 10 

14.r eeep .4. 

16 ■ 

BEE 

.3.16: BEEP 

, 3 

, 19 . 


, 5,16 
PEER , ; , 

Id PAUSE 
BEEP -3 7 
17: BEEP 
* 6.S1 
QO TO SOS© 

IF Ms3 mND B = 3 PND C = 3 
p r €: fíi 10=20 G Q T O 5 0 6 0 
50 TO 5090 
FPIhr — J ‘ 

BEEP 


BEEP 

BEEP 


THEN 


AT 

15 .. 19; p rsrí i o 

BEEP 

■ 4 , 

. 3 

e: BEEP .3,0: 

. 0 

■ B , 

5: BEEP .7.4: 

PAUSE 

, d i 

0: BEEP .3.01 

BEEP 

, 3 

,0: BEEP .5,7 

BEEP 


5070 GO td 9000 


50ss ir 


a = -5 - s 


AND b 5= 1 RWD C = 1 TH 
EN LET prími0=3: GO TO E030 
B06S GO TO 5110 

5 0 8 0 PRINT mT IB j 19 ; r r í: tíi i a 

PEEP ,5 >12; &EEP * a , Id 


SEE 


P , 7 . 

16 



5096 

BEEP .5.14: BEEP 

.2,16: 

BEE 

P . 7 , 

17 



5097 

BEEP .3,16 BEEP 

.—i -i f . 

■ m- f -I. * 

BEE 

P * d , 

19; BEEP .4.19 



5 10© 

BEEP .2,19: BEEP 

. 5 , £ 1 : 

BEE 

f- r » S ,i 

21: BEEP .3,14 



5105 

GO T 0 S 0 0 0 



6110 

IF a =3.? PNP b = l 

.5 PND 

C — 1 . 

5 THEN LET p r e I» i O = 12 ; 

GO TO 

5 120 

5115 

QO TO: SiiCi 



512© 

PRINT RT 15,19,A 

f c Tu í O 


SI 27 

F 0 R n s 1 T O d 




^6EP *3., 2^3: BEEP 

.3,26: 

BEE 

P . 5 . 

2 6 



51.29 

NÉXT n 



F 170 ■- 

F:FpD F F E P 

^ ^-1 . 

* w J “ 

BEE 

P , 3 

2d: BEEP .3,26: 

BEEP . S 

, 2S 

S 13 1 

BEEP ,3,29; BEEP 

■ w , m- - 

BEE 

P . 6 , 

£9 



6 132 

BEEP .1.29: BEEP 

■ 1,29: 

BEE 

F- 1 . 3 

SB' BEEP ,3,35 



5 133 

BEEP ,3.26' BEEP 

.3,31: 

BEE 

P 3 

3 1 



S 13 4 J 

BÉ£P -3,29; BEEP 

-3,26. 

BEE 

í*. er 

i * *-t } 

24 



S 13 S 

GQ TO 3000 



w i ü- 0 

IF a=3.6 RND &=2 

RND C = 

2 TH 


EiN LEÍ p f-e m i O = I d : t?Ü I D 5 15 0 
P US GO T O F 1 7 0 
5 150 PRINT RT 15,1?; P^mj D 
5157 BEEP .2,-S: BEEP - 2 , ~2: BEE 
p 1 £ ^ 1 

5 100 BEEP « 2 , — 3 . EEEP * 3, , — 3 , PHU 
SE 10: BEEP .0.-1 
5155 GOTO 9000 

F17© IF á=3*5 RND b=£-5 AMD C =2 . 

F THE M LET preffli0 = iS: 00 TO 51*0 


GO TO 
PR INT 
BEEP 


SITE 
5 100 
5 165 
- 5 * 4 

5156 5EEP 
P F.,6 
3 10 7 


5000 
RT 1S 

3^0- 


BEEP 
BEEP 
G1S0 BEEP 


i , A tí j P I 
BEEP 

BEEP 

BEEP 


£ ¿n i 

3 , 2 


BEEP 

BEEP 

BEEP 

BEEP 


"áu©; BEEP - d.U 
¿£ i a : DEEP * 2 j d 
. ¿¡ , 0 : &£BP *3,-1: BEEP -3,-3 
5 195 DO TO S0ÉI0 

B 200 IF as 3.5 AND b »3 AND C = 3 TH 

FN LET pr$rfiU=3D: 00 TO 52 10 

5205 GO TO 522G 

5010 PR INT RT 15,19;premio 

5 ¿13 BEEP ,5,11. BEEP ,3,1^: B e. E 

P .0.7 

5213 BEEP ■ £■! . d : BEEP .2;!: BEEP 
72.7: BEEP .2,14-: BEEP .2.12: Bñ 
FP '.?,? 


?214->BÉCP .2.5: BEEP .S,7: BEEP 

.2,9: BEEP .2,9: BEEP .2,9: BEEP 

■-. Q 

S2 1S FOR r.-1 TO 3 
5210 BEEP .2,9 

521© BEEP ?£,. 5: BEEP .2,7: BEEP 


5219 
P ^ , 3 
5 £ 2 S 
62 30 
MIOí! 
5235 
5540 

5245 

5246 
EEP 

5247 
6355 
5200 
O TO 


BEEP -2,12: BEEP -2,11: BEE 
d 

GO TO 600© „ 

IF B=1 AND C»1 THEN LET RRE 
l : GO TD 52d0 
GG TO 52B0 

PRINT PT 16,19; premio 
FOR H = 1 TO 3 

BEEP .1,-19: BEEP *1,-19: B 
, 3, -19 
NEXT n 
GO TO 6000 

IF csl THEN LET prBmi O=1: G 
5270 


5255 
5270 
SESO 
P , d 
5'¿05 
5290 
5 TH 
í=¡ OÍje*! 

5300 

5301 
5 3© ¿i 
53 03 
3304 
5305 

5309 

5310 
P . 2 

5311 
53 12 
53 13 
P >2 

BFE 


GO TO 
PRI MT 
BEEP 
, 17 
QÜ TO 
IF 8 = 
EN LET 
00 TO 
PR INT 
PRINT 
PRI NT 
BEEP 
PRINT 
PRI NT 
FOR n 
BEEP 
, 19 : B 
NEXT 
BEEP 
BEEP 
, 12 : B 
P .2.1 


529© 

RT l5,i9;prsruo 
.2,12; BEEP ,2,Id 


BEE 


6000 

3*5 AND b=3.S AMD C=3- 
pr®rfiiC=20: GO TO 5300 
S4-&0 

RT 15.19 ; p r e rí, i ü 
RT 4^7; "Siguí" 

«T 6,57; ■■ tic- " 
1,5,29: PAUSE 50 
RT d , 27 ; ,l 
RT 5,27 ; 11 
= i T O 2 

.2,19: BEEP ,2,19: BEE 

EEP p 3/al: BEEP .3,19 

n 

.6 j 17 

.2,12: BEEP *2,12 BEE 

EEP .2,14: BEEP - 2 , Id : 

ft: BEEP -0,14 


F315 lET hp=hp+l: GO TG BOGO 
3400 IF INT l RND *5 ) "3 THEM GO Tí 
910© 

S406 LET Ui-O a Q 

5di© PPXNT mT 4,0,¡ "SÜftRT": BEEP 
-20 


STEP 2 


54 15 

PR INT 

RT 

d 

0 ; ■■ 

Sd2© 

ah TO 

100 



8030 

FOR rft 

^1 T 

0 

prei 

©OIS 

LET t 

= t + 1 



8 0 1G 

FOR n 

-19 

TO 

29 

60 14 

BEEP 

i 006 

^ n 


6 © 1S 

NEXT 

n 



6030 

LET iu 

oh =W 

Oh 

4 1 

604© 

PRINT 

RT 

16 

, 2© 

S0 5G 

PR INT 

RT 

15 

, 19 

8060 

PRINT 

AT 

15 

, 19 

6©7© 

NEXT 

fn 



6 06© 

PRINT 

RT 

IB 

, 19 

6 0-90 

UET t 

= 0 : 

LET t 

B 1G 0 

IF hP 

< > 0 

RND h 

n L f tu = 9 9 9 : 

TO 

100 


: h'i i O 


= 0 

■ < > 5 THEN 


LET 


311© 

O 10© 
ais© 
9000 
por 
9010 
r el 
S ¡i qu 
CÜÓ L q 
002 0 
tí 0 3 0 
E USR 
904© 
9100 
9103 
MCE" 
9110 
n i í. R 
5H © ; 
0 


IF Kp s5 THEN LET hp=Q; GO T 
Ü O TO 10 0 

CL5 PRINT RT 4.4J"GriCiiS 

hab^r iuaado iN 

P PINT Pt 15, 0 ; ”P * r a destruí 
programa ru Ua La tecla g . 
i íi r e s volver a Jugar p u i. & s 
u i i r o t f -a t e c l « 

PAUSE 0 

IF INKÍVÍ=-g" THEN PANDOM12 
0 

PUN 

BEEP ,2.20. BEEP -15,25 
PRINT FLASH 1;AT 16,1-/ H AUA 

IF INKEY**"!" THEN LET Hl=X 
ND410): LET tJ=l: PRINT FLR 

RT 15,12:" ": GOTO 52 


R170 IF TNKEY á = "2" THEN LET nS«I 
NT ÍRMDílO): LET tJ=1: PRINT FLA 
SH © : AT 13,12; " ,P : GO TG 62 

© 

9 13 © IF INKE'f"$=" 3 " THEN LEI u 3 = I 
NI l. RND * 10 i : PRI N 7 FLASH 0 : AT 16 
, 19 : ” M : GO TG 72 G 

A U0 GO TO Q 100 

9900 SRUE "op-frgit" LIME 1 
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Supongamos que ya tiene una 
combinación de figuras en la pan¬ 
talla. Sí fe corresponde un premio 
Ja máquina reproducirá únemelo- 
día (tiene 13 diferentes, una para 
cada premio) y le indicará en 
monedas el valor del premio obte¬ 
nido , valor que irá a engrosar su 
contador de monedas 

Si no es así la máquina, en un 
afarde de generosidad le ofrecerá 
una de cada 5 veces y aleatoria¬ 
mente la posibilidad de avanzar 
las figuras de cualesquiera de las 
tres ventanillas. En este caso apa¬ 
recerá en pantalla el rótulo AVAN¬ 
CE intermitentemente y acompa¬ 
ñado de un sonido ululante. 
Oprima las teclas 1, 2 ó 3 según 
desee avanzar las figuras de las 
ventanillas izquierda, central o 
derecha. Sí consigue premio en¬ 
horabuena por su astucia. Si no la 
máquina lo lamenta y puede 
seguir jugando. 

Las figuras que pueden salir 
son: cerezas, limones, peras, fre¬ 
sas, campanas y la marca de la 
máquina, que de ahora en ade¬ 
lante notaré como M.M. 


El Programa 


Comienza con publicidad y 
música de fondo (líneas 1—11) 
De la 12 a la 21 la máquina le 
invita a jugar y le advierte de lo 
generosa que es también musi¬ 
calmente, Entre la 43 y la 79 está 
la presentación en pantalla de la 
máquina tragaperras y de la infor¬ 
mación adicional, y a continua¬ 
ción (80 — 96) está la inicialización 
de las variables. Las líneas 100 y 
101 actualizan el número de 
monedas gastadas y el número de 
créditos disponibles. A continua¬ 
ción el programa analiza el teclado 
según las opciones que puede 
ofrecer al usuario y actualiza los 
distintos contadores (líneas entre 


140 y 310}. Luego el ordenador 
genera un número, aleatorio, de 
tres cifras mediante la función 
RND, asocia a cada valor de cen¬ 
tenas, decenas y unidades la 
representación gráfica correspon¬ 
diente y simula la rotación de las 
figuras en la pantalla (500 — 800). 


Líneas 1000 — 1 170: subprogra¬ 
ma de la 
representa¬ 
ción gráfi¬ 
ca de fas 
cerezas. 

Líneas 1500 — 1620: ídem del 

limón. 

Líneas 2000 — 2150: Idem de la 

pera. 

Líneas 2500 — 2680: Idem de la 

fresa. 

Líneas 3000 — 3150: Idem de la- 

campana 

Líneas 3500 — 3590: Idem de la 

marca de 
la máqui¬ 
na. 

Entre las líneas 4000 y 5420 el 
SPECTRUM comprueba si la com¬ 
binación resultante es premiada y 
si lo es ordena ejecutar una melo¬ 
día distinta para cada premio. En 
este caso y tras la melodía se 
simula la caida de las monedas 
con un peculiar sonido (líneas 
8000 — 8150). A continuación 
aparece el subprograma que per¬ 
mite destruir el programa princi¬ 
pal con sólo apretar una tecla. 
Las siguientes líneas hasta la 
9140 analizan el teclado en el 


Las combinaciones premiadas son: 


- C: 1 moneda 

C — cereza 

— C C , 2 monedas 

L — limón 

C C C: 3 monedas 

P — pera 

L L L: 4 monedas 

F — fresa 

P P P: 6 monedas 

F F F: 10 monedas 

Ca Ca Ca: 20 monedas 

MM C C 8 monedas 

MM L L: 12 monedas 

MM P P: 14 monedas 

MM F F: 16 monedas 

MM Ca Ca: 20 monedas 

Ca — campana 

MM MM MM: 20 monedas y repite premio hasta ganar 100 mone¬ 
das en total 
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caso de que la máquina permita 
avanzar figuras en alguna de sus 
ventanillas, posibilidad que viene 
determinada por la línea 5400. Y 
por último la línea 9900 permite 
guardar en cinta al programa, 


Anímese y teclee el pro¬ 
grama 


Sabemos que su longitud no le 
asusta. A cambio su extremada 
simplicidad en el lenguaje le per¬ 
mitirá ir comprendiendo casi todos 
los pasos. 

La máquina, aunque un poco 
avara, puede permitirle ganar 
algún dinero si juega con habili¬ 
dad sus avances y sabe retirarse a 
tiempo. Si consigue fijar la marca 
de la máquina en las tres ventani¬ 
llas habrá ganado 20 monedas 
(500 pías,}; atento y siga jugando 
pues esta combinación se le repe¬ 
tirá 4 veces más hasta que Vd. 
reúne las 2.500 ptas. que consti¬ 
tuyen el premio máximo. No obs¬ 
tante no confie mucho en que le 
ocurra esto pues sólo tiene una 
posibilidad de cada 1000 (más las 
que le ofrezcan los avances); pero 
seguro que Vd. habrá descubierto 
que cortando el programa y te¬ 
cleando: 




LET num; = 999: GO TO 510 
conseguirá el codiciado premio 
sin necesidad de jugar ninguna 
partida. Cambiando el número 
999 puede obtener cualquier com¬ 
binación (jpero está cometiendo 
un fraude!) 

Gane o pierda dinero estemos 
seguros de que le gustará este 


programa que aprovechará las 
posibilidades gráficas, color y 
sonido de su SPECTRUM y le 
creará adicción a las pocas parti¬ 
das. Guarde el programa teclean¬ 
do GO TO 9900. 


Alberto Pajares Caüeja 


ORDENADOR PERSONAL Z-90 



EN KIT 
O 

MONTADO 


Unidad central incorpora 2 microprocesadores Z-80, 64K. 
RAM. Teclado alfanumérico más numérico, 8 teclas de 
funciones, pantalla de alta resolución. Tarjeta controlado^ 
ra de disco gobierna hasta 1,9Mb. ampKable hasta 10Mb. 
3 puertas serie RS-232, Unidad de disco 160K. También 
incluye sistema operativo CP/M y lenguaje de programa¬ 


ción Basic. 

H-9Ü-82 En Kit 7 Horas de fácil montaje 

que se ayuda con instrucciones ....... 259.000 pts. 

Z-90-82 Montado y probado ......... 366.000 pts. 

S-11 Impresora Honeywell 100 cps, 

80 columnas , . .... 86.500 pts. 


Comercial CRUZ 

MONTESA, 38 -Telfs.: 402 92 41 -401 26 26-MADR1D-6 
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MIIMIGOLF 


I 


1 1 1 ' ^ I ' I 

Para los utilizadores 
de TRS 80 y Video ' 
Genie publicamos 
este programa de , 
minigolf para que 
paséis unas veladas 
entretenidas. * 
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4 CLEAR1Ü00 :CLS:RANDÜM¡FGRX=0TQ1 27 3 SET 6) :SET(X,47) ¡NEXT ; FÜRY=6TG47 i SET < 0 , Y) ¡S 
ET( 12?,Y) :N£XT:PftlNT^7,STftING^C 1 8,179> j ¡PRINT3131 , 11 M I N i G Ü L F“ ; * PR INT31 75 

, ,STRING4C13,179>; 

5 PRINT3899,"<3> 1 980 , COPYRI GHT BY KARNAK ELECTRON I CS" ;¡ FORT-1TQ20 30 ; NEXT j CLS : HO 

-1 


V 


\ 


I \ 


» i 


I ó I FHO > 4THEN45ELSECLS;FGRX=OTO127 i SET(X,3) ¡NEXT;FQRY=3T04?:SET < 127,Y)¡SETÍ12 6 t Y> 
:NEXTjFORX^127TO0STEP’l¡SET<X f 47)¡NEXT \ FGRY-47TÜ3STEP-1;5ET<0 3 Y>;SETC1,Y):NÉXT:L 
( *=STRING*<3*191> 


1 

i u 


7 PRINT¿53 *"HOYO NÜ, M ¡HOf:ÜNH0GÜSUB51 ,37 f 39,58 

H X=RNDC124? + 1¡Y=RND(43> + 3¡IFNÜTPÜ1NTÍX t Y>THENSET < X,Y>:G0SUB33 ; G0SUB24ELSE8 

9 A=1:B=1 

10 P=X íQ=YíSETCX,Y)¡IFK<PGTHENK=K+1¡GQTG12 

J1 IFK>FGTHENGü 3UB24ELSEK=K+IG:FORT^0TOK“PG íNEXTT 


l 


f 1 1 
' \¡l i 

1 i 


\ 


1 


l 


V > 1 

, )f I 

í 


l í 

í 


1 


V I 




1 


I ' V- 1 


t \ 


\ 


V 






f 


W \( 


1 2 IFPÜINT < X+A, Y + B > THENK—K + 2*IG;G0SUB34:GÜTül3ELSEX=X+A¡Y=Y+ 8 :RESETCP,Q>:GOTÜ 10 
\ 13 Al =A:a2— 6 ¡RESETíX,Y>¡IFPGINTíX,Y+BJTHENB--B 

14 IFPOÍNT(X+A i Y>THENA=-A 
x 15 JFNOTPüINT<X+A,Y+E)THEN 10 

f I id IFRNDO) OlTHENie 

1 7 A--A1 r B=-A2: I FNÜTPOI NT í X+A, Y + B) THEN1 0 
» \ 18 A=A1 :B—A2;F—RND< 2);ÜNFGÜTÜI9,20,21 ,22 

y 19 IFNÜTPÜ1NTí X+A,Y > THENX=X+A:GOTO i 0 
2Ü IFNÜTPÜim (X,Y+B) THENY^Y + B:GÜTOl 0 
f \ 21 IFNGTPOINT< X-A,Y)THENX=X-A:PRINT90,3;;GÜTOl& 

\ 22 IFMOTPÜ3NT ÍX,Y-B)THENY=Y-&:PRINT20,4; :GÜTOl0 

23 RETURN 

( 24 K=0 ¡PRINT30,"ENTRE POTENCIA DEL GOLPE <0 A 9 >"; f 

i 2S A*=INKEY*¡IFA*= i ’“THÉN25ELSEPe*UAL<A$> 

í 26 I FAf=“ 3 ,, THENPP=NG+HÜ*20 : H<HÜ) = PP : TG=TG + PP ¡NG=0 : PR1NT3S , STRINCSÍ 32,32) ; : PRIHT3 i 

. 0 3 PENAL I ZACI ON" ; 20*HO j : FÜRT-lTOl 500 :NEXT : HQ=HO+ i 3 GÜTÜd 1 

| 27 IFPG<3ORPG>9THEN25£LSEPRINT30,STRING$C 35,32? j 

\ 29 NG^NG+1:1G»Í1/CPG+l>)*10:PG»-PG*2e¡FG=PG+d0!IFA=lTHENlFX>XPTHENA=-AsG0T03e 1 ' 

I 29 IFA^-1THENIFX<XPTHENA=-A 

| ' 30 IF&-1THENIFY>YPTHENB=-B:RETURN í I 

31 1 fk=- 1 THENIFY<YPTHENB=-B:RETURN 

32 RETURN 

y 33 XP-RNCK 124> + 1 :YP^RND<43) + 3:IFNOTPGlNTtXP,YP)ANDNÜTPOINTÍXP+ 1 YP)THENSETCXP YP t \ 
y ) i SET 4XF+1 jYP> í RETURNELSE33 ' 

34 FÜRH=XPTÜXP +1 

\ ' 35 1 FX+A=HANDY+ B=YPTHENPR INT30 , " HÜYO CONSEGUIDO EN 11 j NG GOLPES* ; j HC HO) =NG : TG=TG + 

1 NG¡NG =0 jRESET(X,Y) : F0RT= 1 TOl 0 : RESET < XP, YP) ;RESET<XP+ 1 ,YP) ;F0RN=lTO5& :NEXT ; SET<XP 

íYP> iSET<XP +1 f YP>¡FORN=lT09e sNEXTNíNEXTT:HO=HO +1 :CLSrGÜT0¿ 

J { 36 NEXTHiRETURN 

37 MS-"*STRING*C d3,1 91 > :M1*=STR1NG$C 4,32) íM2**STRINGSC 1 2,32> ! F0RX=¿4T0384STEP¿4 : PR 
M l NT3X , Mí i ¡PRlNTSX+57ó,H* j ¡NEXTX ; FÜRX= 1 32T0324STEP64 : PR 1NT 3 X , M2^ j : PR INT3X + 57ó ,M2$ 

i;NEXT:PRINT3392,M1ff:PRINT3649,M1t; 

1 38 FORX^l76T03Ó8STEP64:PRlNT3X,M2$;:PR2NT3X +57ó,M2$¡ ;NEXT:PR1NT343Ó,M1 *;:PRlNT3á 1 

I 92,H1Sí : M— 1 4^ íN= 404 ; FÜRX1 = 1 T 05 : FORX=fiTONSTEP64 ? PR INT3X f MI« ; : PRINTSX+5 1 2 ,M 1 % : íNEX 
, TX¡M=M+5:N=N+5íNEXTX1¡RETURN 
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iniciación 


Aprendizaje del BASIC 

en un instituto de Bachillerato 


Cada vez son más frecuentes los comentarios y 
artículos que aparecen en las revistas especializadas 
defendiendo la introducción de los ordenadores en 
los centros de enseñanza. Pero también es verdad 
que la mayor parte de las veces se toca el tema de 
una forma ideal y generalizada (se debería... habría 
que...). En este artículo se pretende bajar a lo parti¬ 
cular contando la modesta pero importante expe¬ 
riencia realizada en un centro de enseñanza de 
nuestro país. 


Las dificultades iniciales 


La experiencia se está Nevando a 
cabo en el Instituto de Bachillerato 
Mixto de Cangas (Pontevedra). Tengo 
noticias de que no somos el único Insti¬ 
tuto que realiza estos trabajos y la se¬ 
guridad de que dentro de muy pocos 
años todos los centros de enseñanza 
dispondrán deJ material suficiente para 
implantar la Informática como una 
asignatura más o como complemento 
y ayuda a otras disciplinas. 

Cuando uno intenta Nevar a la prác¬ 
tica una idea quizá pone demasiado 
subjetivismo en el asunto, y ve cosas 
maravillosas donde los demás ven una 
trivialidad. Así, el primer cometido fue 
tantear la opinión de la Dirección del 
centro y Ja de los propios compañeros. 
Y aquí he de decir que el proyecto fue 
magníficamente acogido, lo que quiero 
sinceramente agradecer desde estas lí¬ 
neas. Tanto interés se puso en el asun¬ 
to que inmediatamente empezamos a 
barajar presupuestos para la adquisi¬ 
ción del ordenador. 


Ya sabemos eí poco dinero de! que 
disponen los centros de enseñanza, así 
que, ¿qué mejor que un ZX-8Í por lo 
menos para empezar? Eí proyecto ya 
estaba en marcha. 

Todo esto surgió con el curso ya 
empezado, ios alumnos ya estaban dis¬ 
tribuidos en grupos, los profesores ya 
teníamos nuestros horarios y no era 
cuestión ahora de sentar frente al te* 
ciado del Sinclair a los treinta y tantos 
alumnos que componen una-clase. Ha¬ 
bría que resolver el problema de otra 
forma. El aprendizaje del BAá^C ten¬ 
dría que realizarse fuera de las horas 
de cíase. 

Faltaba entonces la prueba más cru¬ 
cial, proponer la Énciativa a los alum¬ 
nos. A pesar de que el cursillo era to¬ 
talmente voluntarlo, y fuera del hora¬ 
rio habitual de clases, la propuesta fue 
unánimemente aplaudida; tanto que 
planteaba un problema para formar 
pequeños grupos en que sus horas li¬ 
bres coincidieran con fas mías. Esa 
coincidencia se daba con los alumnos 
deCOU. 


De los tres cursos de COU de cien¬ 
cias (unos 100 alumnos) se formaron 
grupos de ocho, de forma que cada 
grupo asistiera a cinco sesiones sema¬ 
nales de una hora de duración, aten¬ 
diendo a tres grupos semanalmente. 

Parecía inabordable el pretender 
enseñar todo el lenguaje BASIC en 
cinco horas, no había otra solución, 
pues, o bien se quedaban alumnos de 
la misma clase sin ver el ordenador, o 
bien yo hacía un montón de horas ex¬ 
tras, y teniendo en cuenta que parale¬ 
lamente, como comentaré al final, se 
llevaba a cabo otro cursillo para los 
profesores no había más remedio que 
buscar Ea solución en esas horas. 

E¡ cursillo 


Por lo expuesto hasta ahora se de¬ 
duce sin dificultad que no se podía ser 
muy ambicioso. ISÍo se trataba enton¬ 
ces de que cada alumno fuese un buen 
programador al finalizar el cursillo, 
sino solo de que cada uno tuviera una 
ligera, pero eficaz visión de ío que es 
un ordenador, de lo que es un lengua¬ 
je informático y sobre todo perderle 
el respeto a esa caja mágica y ver que 
las computadoras no son sólo para los 
grandes sabios, sino que se le puede co¬ 
ger el gustillo por lo menos en cinco 
horas. 

Con éstos objetivos y limitaciones a 
la vista, se trataba de conseguir que 
desde eí primer momento ef alumno 
supiera lo que es un programa, y a tra¬ 
vés de él fuese conociendo las distintas 
palabras que componen las órdenes 
que se le dan a la máquina; incluso que 
él mismo fuese capaz de elaborar un 
programa similar al anterior para el 
próximo día, el cual a su vez pudiera 
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modificarse ligeramente con el fin de 
introducir algún nuevo concepto, 
Considerando que los alumnos de 
CGU están ya lo suficientemente roda¬ 
das como para no poner mala cara a la 
introducción de unos conceptos nue- 
vos, que aún con su lógica podían 
resultarles un poco chocantes, habría 
que proponer unos programas tales 
que centraran al alumno en los concep¬ 
tos propios de la programación y no se 
perdieran en problemas ajenos a ellos, 
como podría ser un cálculo matemáti¬ 
co excesivo, etc. 


Programa núm. 1: TABLA DE 
MULTIPLICAR 


Con este programa evidentemente 
el alumno no iba a perderse en meca¬ 
nismos matemáticos propios de la mul¬ 
tiplicación, sino que iba a prestar aten¬ 
ción al cómo, a la forma de resolverlo, 
a las palabras clave de BASIC. 

Después de una breve introducción 
al teclado y periféricos del ZX se inten¬ 
taba comparar las posibilidades del mi¬ 
cro-ordenador con la típica calculado¬ 
ra de bolsillo. Desde luego los dos rea¬ 
lizan multiplicaciones, pero nuestro 
ZX sabe escribir palabras y puede pre¬ 
sentar la tabla de multiplicar completa 
y con algún que otro adorno. 

Inmediatamente confeccionábamos 
la tabla de multiplicar del 2 para los 
diez primeros números: 


En este programa se introducían ya 
dos cosas importante, el P RINT y el ci¬ 
clo FOR-NÉXT. Se explicaba un poco 
como operaba la máquina con el ciclo 
y como distinguía dentro del PRINT 
lo que estuviese entre comillas (el ZX 
3o escribiría al pie de la letra) de lo que 
estuviese sin ellas (escribiría su valor 
numérico). Esto se entendía bien al 
comparar los dos 2*N que aparecen en 
el PRÍNT. 

Una vez claros los nuevos concep¬ 
tos pulsábamos RUN, y las caras se cu¬ 
brían de una leve sonrisa de admira¬ 
ción y satisfación. Pero surgía el tistUfo; 
"Si eso hay que hacerlo para cada nú¬ 
mero, ¡menudo rollo!". Vemos cómo 
ya el alumno buscaba la mejora. Ha¬ 
bría que introducir un nuevo concepto: 
el INPUT. _ 


7 

INPUT X 


1 0 

FOR N;0 

TQ 9 


PRINT Xj 

; ";H;“ = ";x*n 

Í0 

HEXT N 


Se recalcaba con este nuevo progra¬ 
ma la utilidad de espaciar las líneas de 
diez en diez, para poder tener sitio 
donde introducir nuevas cosas. Y sobre 
todo destacar como con la introduc¬ 
ción de una sola línea (la 7) y la co¬ 
rrección de otra {la 20), se le sacaba 
mucho más rendimiento ai programa, 


pues ahora no sólo sabía la tabla def 2, 
sino la de cualquier número (X),ín- 
cluso con decimales o negativo. 

El siguiente paso era dar la regla 
de oro de la programación: ir Todo 
programa ha de ser lo más versé til 
posible", o bien "a todo programa 
hemos de sacarle la mayor informa¬ 
ción posible" t Entonce, ¿por qué 
fijar los límites del intervalo de la 
tabla (el 0 y el 9)? y ¿por qué limitar 
el salto de uno en uno?. 

Esta nueva mejora se resolvía in¬ 
troduciendo dos nuevos INPUTs y 
el STEP en el ciclo FQR-NEXT. El 
programa quedaría de forma defini¬ 
tiva: 


10 REM TRELfi OE FÍU1_T IPLICAR 


20 PRINT 
50 INPUT 


M Tñ&Lñ E>EL NUMERO ?' 


40 PRINT “LIMITE INFERIOR 
30 INPUT R 

30 PRINT "LIMITE SUPERIOR 
70 INPUT 3 

50 PRINT 11 INTERCALO DE SRLTO 

^0 INPUT C 
100 CL5 

US FOR N=ñ TQ B 5T3R C 
120 PRINT X, " *■'; Ni " =" i X*N 
150 NEXT N 


Ahora aparecían dos nuevas sen¬ 
tencias, ía REM de la línea 10 que no 
hace nada pero que es útil para poner 
anotaciones y títulos en el programa 
y el CLS de la línea 100 que significa 
borrar ia pantalla, útil en este caso 
para que una vez introducidos los da¬ 
tos a través de los INPUTs, se borren 
esas preguntas y el resultado aparezca 
sólo en la pantalla (línea 120)* Además; 
y esto es Importante, ahora la máquina 
nos recuerda el tipo de dato que espera 
que le Introduzcamos {líneas 20, 40, 
60 y 80) para no perdernos en los IN- 
PUTs. 

Era hora de hacer balance y recor¬ 
dar loque habíamos aprendido: 


1) PRÍNT con sus: 

— Comillas (escribe al pie de la letra) 
— Sin comillas (escribe el valor) 

— Punto y coma (escribe al lado de 
lo anterior) 

2) FOR-NEXT con su STEP (un ciclo) 

3) INPUT , introducción de datos 

4) REM f para recordatorios en el listado 

5) CLS f para borrar la pantalla 

Una voz llegados a este punto ios 
alumnos tomarían las notas oportunas 
sobre lo explicado y se les propondría 
un ejercicio para el próximo día: Con¬ 


fección de una tabla trigonométrica 
para eí seno y el coseno de forma simi¬ 
lar a como habíamos hecho la tabla de 
multiplicar. 

Esta tabla iría de cinco en cinco 
grados sexagesimales desde 0 o a 360° 
La dificultad residiría en que el ZX 
hace los cálculos en radianes. 


Programa núm, 2: TABLA 
TRIGONOMETRICA 


Los alumnos traerían su programa 
confeccionado individualmente o en 
grupos de dos. Una vez corregido y 
aclarado quedaría de la forma: 


10 PRINT " GRREV ; TfiB 6; “SENO"; T 
RB ia;"COSENO" 
a© PRINT 

30 FOR G =i0 TÚ 350 STEP S 
d-Q LET R=GíPI/lS0 

50 PRINT 5;TfiB 41 SIN R; TRB 16; 
C05 R 

60 NEXT G 


La novedad residiría en la línea 40, 
donde se guarda en la variable R la 
conversión de grados (G) a radianes 
para así poder simplificar la línea 50 
donde hay dos llamadas a R, en el SIN 
y COS. 

También hay que destacar los TABs 
de las líneas 10 y 50 + El alumno en¬ 
tiende perfectamente que TAB N signi¬ 
fica escribir en la columna N t lo mismo 
que la coma (J lleva la escritura a la 
columna 16, en la mitad de la línea co¬ 
rrespondiente, Estas instrucciones son 
útiles para ordenar y aprovechar el es¬ 
pacio de la pantalla. Finalmente decir 
que la línea 20 deja una línea en blan¬ 
co para separar los títulos de los resul¬ 
tados. 


Programa núm, 3: SISTEMA DE 
ECUACIONES 


Previamente a la confecció 
Previamente a la confección deí 
programa se habría resuelto a mano el 
sistema de ecuaciones general: 

Al X + A2 Y = A3 
A4 X + A5 Y = A6 


cuyas soluciones serían: 


X = 


A6 — 


A4- 


A5 A3 

A2 

A5 A3 
A2 


A3-Al X 
A2 


Donde Al, A2, A3, A4 P A5, AG son 
los coeficientes que hay que introducir 
(mediante INPUTs) y X, Y las incógni¬ 
tas a resolver. 

Siguiendo lo aprendido en sesiones 
anteriores, los datos se introducirían 
de la forma: 


10 INPUT Al 
20 INPUT A2 
30 INPUT A3 
40 INPUT A4 
50 INPUT A5 
60 INPUT A6 
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Normalmente los alumnos ya no te 
dejan continuar. Inmediatamente sur- 
ge la pregunta: "si tuviéramos un sis¬ 
tema de cuatro ecuaciones con cuatro 
incógnitas (20 coeficientes) ¿habría 
que poner 20 líneas para /os /NPUTs?" 
Evidentemente habría que mejorar la 
situación. 

Introduciríamos aquí un nuevo 
concepto, el de variables con subíndi¬ 


ces. Antes de introducirías habría que 
dimensionar la variable con DíM (guar¬ 
dar un cierto número de subíndices 
para esa variable). Además, los subín¬ 
dices irían entre paréntesis. 

A pesar de la dificultad que entra¬ 
ña la introducción de este nuevo con¬ 
cepto, no hemos de olvidar que los 
alumnos de CQU, en su asignatura de 
matemáticas, estudian los Espacios 
Vectoriales bastante a fondo y allí ya 
trabajaron con los conceptos de com¬ 
ponentes y dimensión de un vector. 
Sólo había que explicarles que A(1} f 
A{2), A(3), AÍ4), A{5), A( 6 ) son las 
componentes de un vector de dimen¬ 


sión seis DtM A( 6 }. Los /NPUTs los 
meteríamos dentro de un bucle que hi¬ 
ciera variar los subíndices: 


r- 


PRINT 'COEFICIENTES (POR FI 
LR5> T Hl 

20 DIM RÍ6> 

30 FOR N=i TO 5 
40 INPLfT R(Nl 
50 PRINT A £N3 i " 

60 NEXT N 
70 CLS 

363 LET X= CPíSÍ -fl ÍS) £3) ^A0ñ> r 
^ ÍP(43 -R íS> (i) sfí J 

90 LET Y= ÍA í 3) -fl ( U *X? /R (£) 

100 PRINT fl < 11 j "X+-” i R j "Y*" ; R 


Í3Í 

^ 110 PRINT P 14> ; ,r X + “ ; A ; ' 

PRINT 

“'SOLUCIONE^; ■' 
140 PftINT ,l X="¿X 
150 PRINT "Y= ,, Í Y 


; A 


Además de repasar conceptos ante¬ 
riores habría que destacar el punto y 
coma {;) en que termina ia línea 50, 
que no tiene otro sentido más que es¬ 
cribir los A(N) unos al lado de los 
otros separados por un espacio en 
blanco. 

Se fijaría también la atención en el 
juego de paréntesis de las líneas 80 y 
90, que por otra parte actúan de for¬ 
ma idéntica a como lo hacen en las ma¬ 


temáticas. 

Ahora se propondría como ejercicio 
para e! día siguiente Fa realización de 
un programa que resolviera la ecuación 
de segundo grado. 


Programa núm. 4: ECUACION 
DE 2o GRADO 


Por supuesto que un alumno de 
COU ha de saber que las soluciones de 
una ecuación de la forma: A 4- 
B X + C- 0, Son: 


-B W B 2 - 4 AC 



-B -V b^-4 AC 
2A 


Traerían entonces un programa, 
como ejercicio, que en general se pare- 
cía al siguiente: _ 


10 

PRINT 

'“COEFICIENTES 



2G 

INPUT 

A 



30 

INPUT 

s 



40 

IP’ÍPUT 

c 



50 

LETT XI 

— t-6+5Q3 (E**£ 

-4iHíC3 


p s i a * n) 




LET X = 

=í“E-50ft 

- 4 . JffifC 1 




?0 

PRINT 

A; "X2+" ;6; "X+” 

; C i " =0’ 


S0 

PR INT 

- SOLUCIONES." 



■90 

PR INT 

"Xi = l+ ; xi, = " 

, X2 



Lo probábamos con unos datos 
como éstos: A = 2, B = 3, C = 1 y efec¬ 
tivamente el programa funcionaba, los 
chicos quedaban muy satisfechos pues 
ya sabían programan 

En este punto era necesario aconse¬ 
jarles que tuvieran prudencia. El que 
hubiera salido bien para unos datos 
muy concretos no era suficiente para 
generalizar. Efectivamente, se propo¬ 
nía ahora introducir ios mismos datos 
anteriores pero la B negativa, B - _ 3 . 
La decepción era evidente; el ZX daba 
un informe de error. ¿Dónde estaba el 
fallo? 

Había que aclarar que el ZX no era 
perfecto. No sabe elevar números nega¬ 
tivos ai cuadrado. Tendríamos que 
cambiar ef término B**2 de las líneas 
50 y 60 por B* B que hace lo mismo y 
no crea problemas, pues sí que sabe 
multiplicar números negativos. 

Por inercia, esta dificultad felizmen¬ 
te resuelta, les traía a la memoria que 
una ecuación de segundo grado podía 
dar resultados imaginarios, es decir, 
que eí término de la raíz cuadrada po¬ 
día ser negativo. Si nosotros no sabe¬ 
mos hacer raíces de números negativos 
(supongo que se preguntarían), ¿sabra 
hacerlas el ZX?. Al probar con A = 4 , 
B = — 3, C = 1 efectivamente daba 
error, estaba claro que no sabía. 

Ahora la modificación sería más 
profunda. Habría que analizar el discri¬ 
minante (el radicando de la raíz) y 
enviar ios cálculos a otro lugar dél pro¬ 
grama donde le arreglaríamos las cosas. 
Para ello sería conveniente también di¬ 
ferenciar la posible parte real de la 
imaginaria en las soluciones. Una vez 
expuestas las dificultades el programa 
quedaría definitivamente: 



10 

PRINT "COEFICIE NT E 5 

20 

IWPÜT A 


30 

IHPUT S 


40 

IHPUT C 


se 

CL5 


63 
í « 

PRINT A;"X2 + ",6; 1 
PR INT 

'X + " ; c; "=0' 

ES 

PRINT " SOLUCIONES-" 

90 

PR INT 


100 

LET D = S*B-4-ífttC 


lie 

LET R = -B/ ( 2 R J 


120 

LET 1=(SOR ROS Dt 

/ [ 2 

130 

IF TriEN GOTO 

170 

140 

PRINT ‘■xi=";r + i 

IES 

PRINT 


160 

STOP 


179 

PRINT "Xl = ” ; ñ ; + '■ 

; I; ■■ I" 

130 

PRINT "X2="; RJ ,+ ~ l 

; l; "I" 


Fundamentalmente en este progra¬ 
ma aparecen dos nuevos conceptos, e! 
IF de la línea 130 y el STOP de la 160; 
este último no ofrece dificultad de 
comprensión pues significa que cuando 
el programa llegue ahí, se pare, es decir 
no se ejecutarían las líneas 170 y 180. 
El }F merece un poco más de atención. 

Con eí /F la máquina piensa , toma 
decisiones por sí misma, esto es fun¬ 
damental en un ordenador. Fijémonos 
entonces en las dos opciones que pre¬ 
senta el discriminante (D) r 

Si D es positivo las cosas ocurren 
como en el programa que los alumnos 
habían confeccionado, pues la línea 
130 no actuaría y el programa se de¬ 
tendría por STOP en la 160. 

Ahora bien, si (/ F) D es negativo 
(D{0) entonces {THEN} se va iGOTO) 
a la línea 170. No es que el ZX sepa 
resolver las raíces negativas, sino que 
le hemos arreglado las cosas en la lí¬ 
nea 120 donde hace la raíz cuadrada 
del valor absoluto de D (ABS D hace 
que la máquina se olvide del signo de 
D f tomándolo en todo caso como po¬ 
sitivo a pesar de ser D negativo). El 
arreglo consiste entonces en la forma 
de presentar la solución. Sí D(0 ef pro¬ 
grama salta a las dos últimas líneas, 
donde escribe las soluciones separando 
la parte real de la Imaginaria (la “l” es 
eí símbolo matemático de \f~\ y re¬ 
presenta la parte imaginaria de un nú¬ 
mero. 


Programa núm. 5: 
CONJUGACION DE VERBOS 
REGULARES 


Con este último programa se pre¬ 
tendía demostrar que un ordenador no 
sólo sabe de matemáticas, sino que 
también puede ser útil en otras disci¬ 
plinas. Al mismo tiempo introduciría¬ 
mos el concepto de las cadenas, es de¬ 
cir, nuestras variables no serían núme¬ 
ros sino palabras. 

Naturalmente antes de escribir e! 
listado hay que saber qué vamos a pro¬ 
gramar. Hemos de analizar y estructu¬ 
rar el problema a fondo, 

Supongamos que queremos analizar 
un verbo de la primera conjugación, 
como el verbo AMAR. Escribamos en¬ 
tonces el Presente y Pretérito Imper¬ 
fecto de! modo indicativo; 
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Presente 

YO AM O 

TU AM AS 

EL AMA 

NOSOTROS AM AMOS 
VOSOTROS AM AIS 
ELLOS AM AMAN 


Pretérito Imperfecto 


YO AM 
TU AM 
EL AM 
NOSOTROS AM 
VOSOTROS AM 
ELLOS 


$4 

W 

MOS 
AIS 
AMIA RÍAN 


r 

\A fil 
A 
¡A 




SAI 
3 A 


EE problema ya estaba claro. Todos 
los tiempos de los verbos empiezan por 
los pronombres {YO, TU, EL ...), To¬ 
dos tienen la raiz, que resulta de su¬ 
primir al infinitivo (AMAR) las dos úl¬ 
timas letras, la terminación (AR) H La 
raíz sería en nuestro caso AM, 

El Pretérito Imperfecto tiene la AB 
para todas las personas. La termina¬ 
ción de los dos tiempos es idéntica, sal¬ 
vo para ía primera persona del singular, 
pues mientras que el Presente es "0 JÍ 
en el Pretérito es "A". 



O IH P * í6,9) 

Din Uí6i4i 
LfiT P|íl) =“VO" 

Jtó LEI Pt(2í s-TU 1 ' 

LET Pí (3J =“£L“ 
feü LET P$Í4.1=”NO£OTRQS" 

70 LET P*f5l='UOSOTRaS" 

(40 LET P* Í6J = "ELLOS" 
iíO LET Tí 11) = "O" 
li£>£> LET 

U[) LET T í $3 > = “fl “ 

LET T $ C4-í = -, RMOS“ 

130 LET T$ ÍS) ="RIS" 

LET T* <£í =-‘RM L 
A 5 0 PRIMT "LíERBO 7“ 
lt5 0 IIMPUT O* 

170 LET L=LEN Uf 

ASS LET Rf?UÍ( TO L-2j 

190 CLS 

PflINT "PRESENTE” 

210 PRINT 

FOR H=1 TQ S 
2 30 PRINT P$ £N) ; Rf ;T$ ÍH5 
2*0 NEXT N 
250 PRINT 

2&0 PRINT “PRETERITO IMPERFECTO 
570 PRINT 

= ¡50 PRINT Pf { 1) ; Rí> "flBñ" 

2 90 FCR N = 2 TO 6 

3 00 PRINT P( líJ) ;fi$; ,L ñB H ;T$£N) 
310 NEKT N 


Los conceptos que introducimos 
ahora son los siguientes. Las variables 
de cadena constan de una sola letra y 
el signo dolar {$}. En las líneas 10 y 20 
guardamos variables de dos dimensio¬ 
nes, la primera para el número de va¬ 
riables (6 en nuestro caso) y la segunda 
para la longitud de la palabra, para lo 
cual nos fijamos en Ea palabra más lar¬ 
ga, NOSOTROS, que tiene ocho letras 
más el espacio de separación, 9 lugares. 
Para la variable T$ solo guardamos 4 
letras, que corresponden a la de mayor 
longitud, AMOS. 


El LEN de la línea 170 calcula la 
longitud del infinitivo del verbo, eí nu¬ 
mero de letras que tiene. La línea ISO 
calcula la raíz, es decir, toma las letras 
del verbo V$ desde la primera hasta 
(TO) la antepenúltima (L-2). 

Evidentemente podríamos ir alar¬ 
gando el programa de forma que calcu¬ 
lase Eos demás tiempos del verbo, e in¬ 
cluso que lo hiciera para las otras dos 
conjugaciones la 2 o y la 3 o (infinitivos 
terminados en -ER y en -IR). 

Otros Programas 

El primer o último cuarto de hora 
de cada sesión lo dedicábamos a ver 
otros programas de nuestra biblioteca 


particular, marcianos, invasores, aje¬ 
drez, dominó y juegos y curiosidades 
en general, sin olvidar otras aplicacio¬ 
nes serias de la informática como ma¬ 
temáticas, climogramas, archivo de no¬ 
tas, etc., de esta forma el alumno, ade¬ 
más de tomar más interés por el asunto 
asimilando ías explicaciones posterio¬ 
res con más ganas, se daba cuenta de ía 
nueva revolución que se avecinaba, la 
de la INFORMATICA, 


Objetivos finales 

Estaba claro que esto no era sufi¬ 
ciente, el alumno algo había aprendido 
pero seguramente no sería capaz de 
confeccionar programas más complejos. 
Como mucho podría hacer otros que 
fuesen casi una copia de los anteriores 
pues en el tintero se nos quedaban 
conceptos importantes del BASIC sin 
tocar, como: GOSUB r PRINT AT t 
PLOT, RND f POKE , etc. 

Como había dicho al principio, eí 
aprendizaje del BASIC se presentaba 


este curso de forma experimental, de 
manera que habría que mejorar en el 
futuro. La única solución sería implan¬ 
tarlo como asignatura* No se trataría 
de crear una nueva sino de meterla 
dentro de una ya existente, el E.A. T.P. 
(Enseñanza de las Actividades Técnico 
Profesionales), pero dedicando todo el 
curso a la máquina y al BASIC. 

Este objetivo no podría cubrirse 
con un soio profesor, como en el curso 
presente, era necesario que otros pro¬ 
fesores tomaran conciencia y partido 
en la nueva situación. 

Es por esto por !o que paralelamen¬ 
te al cursillo de los alumnos también se 
desarrolló otrc para los profesores, en 
principio de una forma similar. Si bien 
para la mayoría les sirvió de informa¬ 
ción, algunos se los tomaron a pecho y 
con ganas, tanto que incluso adquirie¬ 
ron ZXs para su uso particular. En este 
caso el aprendizaje del BASIC fes que¬ 
daba asegurado. 

No quisiera terminar sin destacar 
que estamos confeccionando unos pro¬ 
gramas, digamos serios, que nos ayuda¬ 


rán en nuestra labor de enseñantes. La 
mayor parte de matemáticas (sistema 
de n ecuaciones, producto e inversión 
de matrices de orden n, ajuste por mí¬ 
nimos cuadrados, errores, etc.) y de 
otras materias, como ta de Historia, 
que con la colaboración del catedráti¬ 
co de la asignatura, hemos realizado un 
programa bastante completo sobre Cti- 
mogramas , de forma que el tiempo de¬ 
dicado a la exposición de este tema po¬ 
dría verse reducido en una décima par¬ 
te, ya que con solo pulsar una tecla 
aparece la gráfica pluviosidad-tempera¬ 
tura que corresponde a un clima deter¬ 
minado, con lo que, tanto los alumnos 
como el profesor podrán dedicarse 
con más detenimiento a los conceptos 
propios del tema, dejando para el orde¬ 
nador el trabajo más laborioso. 

Por su extensión el propio comenta¬ 
rio de estos trabajos con el profesora¬ 
do tendría que ser objeto de otro artí¬ 
culo, 

Jesús GONZALEZ ÑORES 
Profesor Agregado de Física y Química 
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Informa' ^ ^Me^¡ 



Cálculo de velocidad 
de perfusión 

de fármacos vasoactivos 


Es curioso que, si bien algunos hospitales dispo¬ 
nen de grandes ordenadores, éstos se emplean funda¬ 
mentalmente con fines de archivo de Historias Clí¬ 
nicas, o bien para el manejo de problemas muy con¬ 
cretos-control y diagnosis de arritmias, registros de 
potenciales evocados, etc-, existiendo a menudo un 
vacío en la ayuda para problemas muy importantes, 
aunque sin duda menos complejos, que se resuelven 
perfectamente con un micro. 

En nuestra Unidad, y partiendo de cero, hemos 
logrado poner a punto en unos meses varios progra¬ 
mas, alguno de diagnóstico sofisticado- localización 
y origen de un estado comatoso- otros, como el que 
os sometemos hoy, de simple cálculo de dosis de 
fármacos. 

No son programas sofisticados y Menos de trucos, 
pero realizan bastante bien su función de descargar¬ 
nos de cálculos rutinarios que antes nos llevaban ho¬ 
ras de trabajo, haciéndolos de forma más exacta. 

Creemos que ésto puede servir para mostrar 
otros usos médicos del microordenador, diferentes 
a la clásicas funciones contables o de fichero. 


El tratamiento de los enfermos en 
una Unidad de Cuidados Intensivos 
(UCI), precisa con mucha frecuencia del 
empleo de fármacos muy activos, que se 
dosifican a menudo en milésimas de mi¬ 
ligramo, y que, por ésta misma razón, 
deben de ser controlados con gran cui¬ 
dado, empleando para ello bombas de 
perfusión muy precisas. 

Los cambios de dosificación de éstos 
fármacos son extraordinariamente fre¬ 
cuentes, a tenor de las modificaciones 
del estado del enfermo. Para evitar tan¬ 


to Jos repetidos y tediosos cálculos, 
como los posibles errores de dosifica¬ 
ción, algunos fabricantes proporcionan 
tablas de cálculo, con arreglo al peso del 
enfermo, y la dosis deseada. En otros 
casos es el propio personal de la Uni¬ 
dad el que se fabrica sus propias tablas 
de dosifiación. No obstante, estas ta¬ 
blas, cuando existen , tienen el grave 
inconveniente de emplear una concen¬ 
tración fija de fármaco, por lo que si 
se emplean dosis importantes de éste, 
la cantidad de líquido empleada duran¬ 


te el día para vehicularlo puede exceder 
de lo conveniente para un enfermo adul¬ 
to, y sobre todo para un niño. 

Para solucionar éste problema, hemos 
puesto a punto en nuestra Unidad un 
programa de cálculo de fármacos vasoac¬ 
tivos. 

En realidad se trata de uno de los 
subprogramas de un programa general 
más complejo con el cual realizamos 
los cálculos diarios de Ja Unidad, De 
algunos de éstos subprogramas hablare¬ 
mos en otra ocasión. 

Está escrito para un VIC-20, y como 
programa aislado cabe cómodamente en 
la memoria de la Unidad básica. No 
obstante, al no ser en absoluto un pro¬ 
grama sofisticado, puede entrar per¬ 
fectamente en otros micros. El interés 
de traerlo aquí es, más que el porgrama 
en sí, el mostrar la posibilidad de em¬ 
plear el microordenador para simplificar 
el trabajo, y evitar errores en una acti¬ 
vidad tan delicada como el tratamien¬ 
to intensivo de un enfermo. 

Tras ser introducidos los datos de 
filiación del enfermo, aparece en panta¬ 
lla un índice de subproqramas.Seleccio¬ 
nando el número correspondiente at 
programa que tratamos, el índice gene¬ 
ral es substituido por el título del sub¬ 
programa, al que acompaña otro índice, 
el de fármacos vasoactivos más usados 
en la Unidad. La inclusión de cualquier 
otro que se desee requiere solamente 
de la adición de los datos correspondien¬ 
tes en las sentencias DATA, así como la 
modificación de las dimensiones DIM de 
las listas, y las instrucciones de lectura 
de éstas. 

Seleccionando el número del índice 
correspondiente al fármaco deseado,apa - 
rece en pantalla el nombre de éste; el 
ordenador pregunta sucesivamente la 
dosis que se desea calcular en las unida¬ 
des apropiadas, el tipo de bomba que va 
a usarse (existen bombas que calculan ef 
número de gotas de una solución que 
introducen por minuto; otras empujan 
el émbolo de una jeringa que puede in- 
yectar en general de 0 a 10 mi por hora. 
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Y otras inyectan cantidades muy supe¬ 
riores de líquido por hora), la cantidad 
de solución que se va a separar, y el má¬ 
ximo diario de líquido que se puede em¬ 
plear para vehicular el fármaco. 

El ordenador muestra entonces la 
cantidad de medicamento que debe em¬ 
plearse, la velocidad a que debe progra¬ 
marse cada tipo de bomba, y un factor 
para cambiar la velocidad si se desea mo¬ 
dificar la dosis ante la propia cama del 
enfermo, sín necesidad de volver a la 
consola, 


El programa da opción a la impre¬ 
sión por un periférico, con o sin los 
datos de filiación del enfermo, lo cual 
nos permite incluir el documento de sa¬ 
lida de la impresora en la hoja de evolu¬ 
ción del enfermo* 

Creemos que la disponibilidad de un 
microordenador poco costoso puede 
significar una ayuda inestimable para el 
trabajo cotidiano del siempre atareado 
personal de una UCI, por ser accesible 
incluso a los servicios más modestos, re¬ 
ducir a un mínimo los errores de cálcu¬ 


lo, y permitir elaborar fácilmente las 
variantes juzgadas necesarias para cada 
Unidad particular. 


Doctores Pilar Martínez García 
Julián López Alvaro 
Juan Carlos Rodríguez Yañez 
Ramón Diaz*Aíersi Rosety 
Nela Sánchez Sánchez 
Venus Salcedo Sol ines 
Julián Gil Cebríán 


para el CALCULO PE VELOC I BE ameíJPION p~ pqemacos VftSOPCTIV 

110 REM M r;npvR JOHT : ¡J, C. I. HOSPITAL CLINICO C^PIZ 1 * 


120 FORJ-lTre : T> : NEXT : FARt al : ^ 0 R : REATmB í I > : N^XT : F 0 R ?>1 TPR : I > : MFXT 

128 PQRI- 1 TC 9 : RER£ML$ < l > ■ NEX r ■ F 9 R 1 * 1 T 0 3 : I > ' NSX~ - PORI- 1^03 ■ EERBX< I > : NFXT 

148 FQf?I^lT09 : RER¿Z< I > : NEX7 

138 I?PTP BOPRMINR,POBUTAMINA, W1 I MFTRPROTERFNOL 

160 TJ&T9 WORRERcHPLIna.. ABRENRL X N* LIPOCAIN* NLTROOL ICERINA * V&S0PRF.S1M& 

178 BATA 288,258,50, .5 * 1, 1,500,50 28, WCO/K0/M, 

M 

188 DPTP MQ/M , Mn/M , iJ „ í , /M , MQ , MO' , mr , MR, MQ, M? , MG, MO, í_L I ■ , QOTas/m , ML/W, ML/N .1,3,3 
198 BATA*,1,1,1,l,i,1808,1088,1888 
288 PRÍMT'TT : IWP1J T<, W0RR 

218 INPUT "NOMBRE/ 1 j N$ : INP!JT»r:QMGr; r;$: r^p^rT "FECHA 11 : : INPUT"PERO M ,i 9X 

228 rfm t, PREOUNTA fármacos,MOCO BE pf^fmSÍOM,BOSTA E INTERVALO" 

238 PRINT 1 '”" :PRlNT:PRINT"F pl VflSORC T IVOñ 

248 P'R I NT " ********* ** ** " : PR1N7 

230 FDRI-1.7n<5:PRTNT]E; "~ ft .rs?: 1 *.-;! ■ TNR.'.ITR: 

268 PRIMT^FCANISMO pF TNFUSlTQÑ" , f ' 5. >GOTEO ■» ,T S> BCMMI VOLUMETRICA 11 , M 3>JERINGA 

PFRFUSORP 

270 jNPUT V : PRINT "rog7 s EN 11 Má ,'r> : in s UTHH : TNPUT' 1 EN QUE VOLUMEN" LL 
238 PRIN7”C0N QUE INTERVALOS EN : XNP-J70 

798 REM"FORMULACION" 

308 rswp5¿3knH*LL*28/ (DSC R > *l088 > : 0?-3 = tfv=3TNEU*==2 

310 I FR>6TMEM0? = 0?*; 1888 

328 00SUB598 

338 01«<HH+n>íií02/Nh^n2 

348 RFM"PRESENTACION BE RESULTADOS" 

358 PRINT" T3 n 'PRINTDDÍ<?> : sr 0RI = l T QLFNÍI , jD4<R>^ ■ PPINT"* 1 *; 34RXT-PRIN^ 

360 PRINT"BOSIFICRCION A"kw; R> " : *L: - ^RTHTn^sfcXíV} : V£<v> 

370 IFXX-0THFNXX»! 

300 PRINT"EIS0LVIENEO"XX*IM?<R> MLí CR> " EN tf LL"MI„ 

390 PRINT"PRRR VRRI^R L* COSIA EW H 0.;M±íR> 

420 PRINT"VPRIRR LP VELCCIT^D EN-ni^y<y?;VS<V> 

410 G0SUB458 

420 REM"REPETICION TE LR PRESENTACION EN CPAO CE TM»PE3I0N" 

430 O0TO350 

448 REM"SUBRUTINR ÍCE IMPRESION RESULTADO?'* 

458 i FX$*" SI *’ T NENX$= " " : pRTN7í*i : CLORE 1 - EN J* 

468 I NPUT" PESES IMP REA ION" : ys : IPX$O íf SI "TWRNENp 

470 INPUT"CON FILIACION"; V^ : IFV5« M SI "THENV^>=" 41 : 00SUB588 

438 QPEN 1,4: CMPI : RETIJRN 

490 REM"SUBRUTINR IMPRESION PE L« AJLIPCION" 

588 0PEN1,4 : QMpI : PRIMT 11 NOMBRE : "N$; : PRINT” . : ‘'O* 

510 PRI NT "FECHA: "ráu : PRINT " B HORR : = 00SUB558 

520 IER<4THEMPRINT :pptnT"PES 0: ''P/í ,l KG, 

538 PRINT-41 'CL0SE1 ■ RETIJRN 

548 REM"SUBRUT’NR IMPRESION PE HORA <y**IPFJE INTEPNR PEL VIO 
558 FORT*iT OLFN í TI^ > STFP2 

560 PRINTMIP$<TI£,T,2>;:IFT<5THFNPRTNT":";:N^XT 
■570 PETUPN 

5^0 EEM"SUBRUT INA para LImttaoION pF LIQUIDOS en 34 n." 

598 IFM=8TWENPRTNT"EN QUE VOLUMEN MPM.p” l TQUIpn/pTP’ 1 : iNPUTM : M=?M^20/1448 
688 IEO2>MTHEN620 
618 RETURN 

620 XX-3>XX-02=0^:Z<R)/XX : 0070688 


RE9PV, 
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INFORMATICA DE BOLSILLO 


Las calculadoras 
programables 
también sirven para 
aprender las tablas 
de multiplicar 


He aquí un pequeño programa de aprendizaje de las tablas 
de sumar y de multiplicar, escrito para una calculadora pro- 
gramable TI 59. Un niño de 8 años se ha familiarizado rápi¬ 
damente con este programa, y se ha divertivo mucho, a la 
vez que daba pruebas de gran concentración. Puede que no 
nos libre del estudio sistemático de las tablas de multiplicar 
sin las cuales el cálculo numérico no puede llegar a ser eficaz, 
pero por lo menos, es un principio de aprendizaje sin esfuer¬ 
zo. 


Este programa permite estu¬ 
diar la tabla del “b”. 

La pregunta es enunciada de 
esta forma: a.b y aparece en 
pantalla. La contestación pro¬ 
puesta se introduce por el te¬ 
clado y el programa empieza al 
pulsar la tecla R/S. Si la con¬ 
testación es correcta, se da 
una confirmación por visualiza- 
ción de la solución. Si es inco* 




Lista 

del programa 




54 

55 

35 

02 

SUM 

2 

77 

78 

08 

94 

8 

n 



de aprendizaje sobre TI 

59 

56 

57 

34 

05 

REC 

5 

79 

80 

37 

09 

x=t 

9 










58 

49 

f ix 

81 

03 

3 

00 

41 

R/S 

18 

12 

INV 

36 

94 


59 

00 

0 

82 

34 

REC 

01 

38 

CMs 

19 

35 

SUM 

37 

41 

R/S 

60 

59 

pause 

83 

02 

2 

02 

33 

STO 

20 

03 

3 

38 

74 

- 

61 

27 

dsz 

84 

41 

R/S 

03 

09 

9 

21 

34 

REC 

39 

34 

REC 

62 

01 

1 

85 

34 

REC 

04 

56 

CP 

22 

08 

8 

40 

05 

5 

63 

02 

2 

86 

09 

9 

05 

03 

3 

23 

33 

STO 

41 

94 

= 

64 

02 

2 

87 

84 

+ 

06 

93 

+- 

24 

05 

5 

42 

37 

x=t 

65 

93 

+- 

88 

01 

1 

07 

33 

STO 

25 

84 

+ 

43 

05 

5 

66 

33 

STO 

89 

94 

= 

08 

08 

8 

26 

34 

REC 

44 

03 

3 

67 

08 

8 

90 

22 

GTO 

09 

04 

4 

27 

09 

9 

45 

34 

REC 

68 

34 

REC 

91 

00 

0 

10 

33 

STO 

28 

35 

SUM 

46 

03 

3 

69 

01 

1 

92 

01 

1 

11 

00 

0 

29 

05 

5. 

47 

47 

x>“ t 

70 

37 

x=t 

93 

01 

1 

12 

03 

3 

30 

54 

■ _ 

• 

48 

01 

1 

71 

09 

9 

94 

35 

SUM 

13 

33 

STO 

31 

01 

1 

49 

07 

7 

72 

03 

3 

95 

01 

1 

14 

03 

3 

32 

00 

0 

50 

22 

GTO 

73 

84 

+ 

96t 

03 

3 

15 

35 

SUM 

33 

00 

0 

51 

05 

5 

74 

01 

1 

97 

22 

GTO 

16 

08 

8 

34 

49 

f ix 

52 

06 

6 

75 

93 

+- 

98 

01 

1 

17 

02 

2 

35 

02 

2 

53 

01 

1 

76 

33 

STO 

99 

00 

0 
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!'a” toma sucesivamente los valores (-3), O, 3, 6, 9, (-2), 1,4, 
7, (-2), (-1), 2, 5, 8. Sólo son visualizados los valores de “a" 
que no están entre paréntesis. 


Principio 1 



Test: continuación 

- B vale 3 y luego 1. 

- Si se contesta correctamente la 
primera vez, B se queda en 1 y E 
es aumentado de 1. 

- Si se contesta mal a la primera, B 
pasa a-1. 

- Si se contesta bien a la segunda 
vez, E es aumentado de 1. 

- Si se contesta mal la segunda vez, 
como B es negativo, se pasa a la 
visualización sin aumentar E. 

- Para permitir, por ejemplo, 4 con¬ 
testaciones en vez de 2, poner pre¬ 
viamente en B, 7y no 3. 


rrecta. la pregunta es enunciada 
una segunda vez. Una segunda 
contestación falsa ocasiona la 
visualización de la respuesta co¬ 
rrecta y la pregunta es contabili¬ 
zada como respuesta errónea. 

Las “a” se presentan en un 
suficiente desorden como para 
impedir que se pueda deducir 
una respuesta de la preceden¬ 
te. 


Una vez agotada la tabla del 
“b” (“a” varía de 0 a 9), aparece 
el tanteo (número de respuestas 
correctas) en pantalla, Al pulsar 
la tecla R/S. se inicia entonces 
el estudio de la tabla del “b+ 1 
Para empezar: pulsar RST. 
luego R/S, introducir la “b” 
por la que se quiera comenzar, 
y hacer aparecer la primera 
pregunta pulsando R/S. 


Nota: La variación de “a” de 0 
a 9 y no de 1 a 10 nos es suge¬ 
rida por una preocupación pe¬ 
dagógica. La experiencia de¬ 
muestra que la pregunta a x 0 
es más difícil que a x 10. 

M. Cíe re 
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TORRES DE HANOI. 

¡He aquí' una versión gráfica de este 
clásico juego en justo 1K de memoria!, 
Vd. tiene tres bases numeradas, y en la 
base 2 hay una torre de seis pisos. Su 
misión es trasladar esta torre, piso a 
piso, a cualquiera de las bases laterales 
1 6 3. Introduzca el número de la base 


de origen con N/L y a continuación el 
número de la base de destino con N/L. 
Naturalmente no puede poner un piso 
mayor encima de otro menor, y e! 
ZX81 se encargará de que no lo haga!. 

Un buen jugador necesitará más de 
60 jugadas para completar !a torre. Si 
lo desea puede usar el modo FAST del 
ZXS1. 


ASTEROIDES. 


¿Cuántos Kms. puede Vd. recorrer 
entre la tormenta de asteroides antes 
de que su nave resulte destruida?. El 
tamaño de los asteroides varía automá¬ 
ticamente. Mueva su nave a izquierda 
y derecha con i4 5' r y "8'L 


TORRES DE HRNOI 


pr 

LET U-COPE ll PI M 


10 

LET D=U~U 


50 

LET 5=UHL "5" 


30 

LET T-UÑL "3" 


*15 

LET U—T /T 


50 

DXH I$íT,3j 


Vi V 1 

FOR I=U TO 5 


56 

LET Zj¡ U +Ui I) =5TRÍ I 


w y 

NEXT I 



G OT D C OD E J1 jg 11 


55 

INPUT R 


Ft&t 

INPUT 3 


100 

FÜR I=U TO 5 


110 

IF Zí ¿ñj I) O" " THEN GOTO 

O 

qde T 

e ■ 


120 

NEXT 1 


130 

GOTO U 


150 

FOR J = U TO I-U 


150 

IF ZtiBídío" 11 THEN GOTO 

u 

165 

NEXT d 


170 

LET Z $ (ñ,X) = " " 


175 

LET 2S ÍE . I) = STR£ X 


ISO 

CLS 


132 

PRINT "HOU," :D;flT CODE : " 

+ i 

SÍT; * 

‘ 1 JÍ ; TR5 CGDE " í - ; " 2" ; TRE CGD 

E " * * 

■ ; 


IBS 

FOR C=U TG T 


120 

LET MrS-fS 


195 

FOR L —S TG U STEP -U 


22G 

IF Z$(C,U O" " THEN GOTO 

c 

ODE ' 

1 LPRITTT " 


205 

NEXT L 


210 

NEXT C 


215 

LET D —D +U 


220 

bL!! L! U 


225 

FGR I=U TO L 


230 

PRINT RT M,Ci(3+U) + 1.1 "i": 


300 

NEXT 1 


31© 

LET M=M-U 


32 © 

GOTO CODE "LN " 



. íir -rarr* r — -r —. ^ 

n-j í i_HL l ¿L-T- j 

50 

LET C=CODE "M" 

60 

LET D =UñL ,J 2 T ' 

70 

LET ZstD-D 

30 

LET L = ü 

90 

LEI’ 

1B0 

LET fií = "S Sf" 

135 

LET X=L 

150 

LET R = JNT í RND *25 > ^ _ 

163 

IF N=C THEN LET «$ = '*31 jü SK" 

155 

IF M=C- THEN LET L=L+D 

167 

IF M=D*C THEN LET R$ = "S && 

' 1 


153 

IF N=D*C THEN LET L=L+D 

Í65 

IF H =CODE - *C THEN LET L = 



^ ~?-0 

PRINT RT 21 ,R ; R $ 

1S0 

5 C R DLL 

130 

SCROLL 

255 

PRINT RT L-DíX-D; 

26© 

PRINT RT L,X; 

27© 

Ir PEEK tPEEK 16335+256tPEE 

K 16333Í=CODE THEN GOTO 5©0 

275 

PRINT "O” 

230 

LET X=X+£INKEY|="3" RND X<= 

2 ¡¿L 5 — 

í INKEY £ = *■ 5 “ RND X > =D ) 

220 

LET N=Nt1 

309 

goto iee 

s©a 

print " Mauras 1 • ; fiT i,Z;"KHS ■ 

; n 
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jStetoPram 3Bieto¿ 


COMPTE D'ÜRGELL, 118 

Tet. (93) 323 00 66 ■ BARCELONA-11 


AV/ INFANTA MERCEDES, 83 
TeL (91) 279 11 23 - MADRID-20 


New Brain: Un nuevo concepto en microinformática 

Una amplia gama de posibilidades 


El New Brain es un ordenador diseñado pa¬ 
ra aplicaciones comerciales, profesionales, 
técnicas y científicas. Por su diseno también se 
puede usar en el hogar y en la escuela- El 
New Brain tiene unas magníficas especifica¬ 
ciones, Las cuales, unidas a Su fiabilidad, bajo 
COSte. posibilidad de expansión y fácil ma¬ 
nejo, lo hacen adecuado tanto para el no ini¬ 
ciado como para el profesional de los ordena¬ 
dores. 

El New Brain dispone de 32 K de memoria 
RAM, y en ios 29 K de ROM fijas reside todo 
su software base. El teclado del New Brain es 
de tamaño standard de máquina de escribir y 
ha sido diseñado para soportar el tecleo rápi¬ 
do de ios usuarios profesionales, y al mismo 
tiempo es de un tacto agradable al principian¬ 
te. 


Aumenta tu programa 
de New Brain 

Además de los programas ya clásicos 
en el New Brain: 

— Guía Principiante (Con libro en 
español), 1.000 pías. 

— Base de Datos (Manejo de archi¬ 
vos), 1,000 ptas. 

— Contabilidad Personal (pequeña 
contabilidad), 1.000 ptas. 

— Entretenimientos 1 (Juegos va¬ 
rios), 1.000 ptas, 

—■ Entretenimientos II (Juegos va¬ 
rios). L000 ptas. 

— Utilidades 1 (Hardcopy, Rótulos, 
Quícksorts). 1.000 ptas. 

— Utilidades II (Monitor código má¬ 
quina). 1,000 ptas. 

— Volplot (Figuras tridimensiona¬ 
les), 1.000 ptas, 

— Fuentes (Cálculo de fuentes de 
alimentación), L000 ptas. 

Nuevos programas ya disponibles en 
el mercado son: 

— Video-Pedidos (Control de un Yi- 
deo-Gub y control de pedidos), 1,500 
ptas, 

— Matemáticas (Matemáticas de al¬ 
to nivel), 1,500 ptas, 

— Juegos (Diversos juegos, entre 
ellos el «Rompemuros»), 1.000 ptas 

— Ajedrez (Totalmente en español. 
1 niveles), 2.500 ptas. 

— Quinielas (Método de desarrollo 


Tiene Eambién doble conecior de casselics. 
se puede conectar dos lectores de cassette, lo 
cual permite ta puesta al día y Ja copia de los 
ficheros a voluntad. Dispone de una salida pa¬ 
ra la UHF de un televisor comercial. El New 
Brain posee dos interfaces de comunicación 
gobernados por el programa. Por un lado, un 
RS232/V24 bidirtccional con velocidad de 
transmisión se Lección ablc por programa desde 
75 hasta 9.600 baodios; esta conexión permite 
la intercomunicación entre varios New Brains 
a los periféricos, al acoplador acústico, o bien, 
a cualquier servicio requiriendo comunicación 
dúplex. Y la segunda, un RS232/V24 unidirec¬ 
cional para la salida de impresora standard 
(sin interfaces adicionales). 


y simplificación de quinielas), 1.900 
pías, 

— Rcnumber (Renumeradcr de pro¬ 
gramas). 1.000 ptas, 

— Ensamblador (Un Útil ensambla¬ 
dor), 1.500 ptas, 

— Graficador (Para dibujar en panta¬ 
lla cualquier dibujo), 1.O0Ü ptas. 




Potentes gráficos con el New Brain 

El manejo de gráficos con el Basic 
New Brain es potente y simple Permi¬ 
te, además, partir la pantalla en dos. 
una para texto y programación y otra 
para gráficos de alta resolución. Igual 
que en las páginas del editor pueden 
existir hasta 255 pantallas gráficas si¬ 
multáneamente (limitado por la capaci¬ 
dad RAM existente). 

Se pueden definir por comando los 
siguientes conceptos: 

—- Escala y ejes de coordenadas (di¬ 
vidiendo dichos ejes) 


— Rectas, arcos y puntos por coor¬ 
denadas. 

— Relleno (fill) de recintos, 

— Angulos en grados o en radiales. 

— Movimientos relativos y absolu¬ 
tos. 

— Inclusión de texto en los gráficos. 

La resolución en gráficos puede ser 
desde 256 x 100 hasta 640 x 250 pi- 
xds. controlable por programa. Los co¬ 
mandos de gráficos se pueden encade¬ 
nar bajo la instrucción plot. 


El New Brain en la educación 

Como todos sabemos, el New Brain 
se adapta perfectamente en el campo 
educacional, siendo pionero en su cate¬ 
goría: por todo ello, se lanza a! merca¬ 
do la nueva red de comunicaciones 
«Masternet*. que puede ínterconectar 
hasta 16 New Brain esclavos a un New 
Brain hasta con diskettes. ampliación 
de memoria c impresora, pudiéndose 
encadenar además varios Masternct en¬ 
tre sí. 

Algunas de las funciones más impor¬ 
tantes de la red Masternet son: 


— Transmisión de programas, etc., 
desde el máster a cualquier esclavo o 
esclavos presekccionados, 

— Monitorado selectivo de video 
desde cualquier esclavo conectado. 

— Comunicaciones de video bidirec- 
cionales entre másters y esclavos. 

— Selección de impresora comparti¬ 
da , 

— Transmisión UHF de video ac¬ 
tuando como sistema interactivo de te¬ 
levisión. 


Proyectos New Brain 

Se ha diseñado en Holanda una serie 
de interfaces muy versátiles que permi¬ 
te con el New r Brain una serie de proce¬ 
sos externos a él. un ejemplo es el 
MCI-1. que permite ocho entradas ana¬ 
lógicas para mediciones de voltajes; 
una salida analógica de control de ele¬ 
mentos; ocho entradas digitales para 
medida de niveles lógicos; ocho salidas 


digitales de control de elementos y un 
interface serie RS232C 

Otro diseño holandés es el NDF-ló. 
que es un módulo de «interface« versá¬ 
til entre un New Brain en un pequeño 
«Controlador de Lógica Programaba, 

Se espera que dichos interfaces estén 
muy pronto en el mercado español. 


Modulo de Batería 

Para solucionar el problema de fallos 
mínimos de tensión, o bien, conseguir 
un equipo portátil, se ha creado el mó¬ 
dulo de batería, el cual da al New 
Brain una autonomía de una hora. La 


alimentación de 220 V se conecta al 
módulo de batería y. de esta forma, las 
baterías siempre están recargadas y lis¬ 
tas para su uso. 


Política Internacional 

A raíz de los problemas surgidos en 
Grundy. la firma Tradecom Internacio¬ 
nal (Holanda) ha comprado los dere¬ 
chos de diseño de New Brain. dicha fir¬ 
ma se compromete a dar el empuje que 
New Brain se merece, de hecho va está 


funcionando con mucho éxito en Ho¬ 
landa. introduciéndolo en el sector edu¬ 
cativo, donde por sus posibilidades ob¬ 
tiene una gran ventaja entre los micros 
de su dase, 


ULTIMAS NOTICIAS 

Discos y controladores ya disponibles en el mercado. 
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EL ORDENADOR 
Y LA 
HI-FI 


Pocos programas han aparecido en 
fas revistas especializadas, referente aí 
tema de afta fidelidad, y muchos me¬ 
nos que puedan ser aplicados af NEW- 
BRA1N A o AD, Este presente progra¬ 
ma quiere cortar la tónica general, por 
lo que les presento un programa que 
no tan sólo puede ser utilizado por el 
NEWBRAIN sino que con pocos arre¬ 
glos puede ser usado con cualquier 
máquina. 

El presente programa ocupa apro¬ 
ximadamente unas 20K de memoria, 
y con é! podemos diseñar filtros divi¬ 
sores de frecuencias para equipos de 
audío, 

Se puede seleccionar en el menú 
general 7 opciones. Con fas 6 primeras 
podemos definir los filtros de 2 ó 3 
vías que más se acerquen a nuestras 
necesidades. Con ía opción 7 podemos 
calcular la inductancia y el fusible de 
protección, 

Gracias a la cantidad de textos in¬ 
sertos en el programa, este es fácil de 
usar, incluso para una persona no ex¬ 
perta en programación. Además, para 
aquel que desee modificar el programa, 
lo tiene muy fácil ya que el programa 
está separado por REMs, para su mejor 
acceso. 

He utilizado el carácter ? en lugar 
del de PRINT tan sólo por ser más có¬ 
modo, Para aquellos que no dispongan 
de! NEWBRAIN tan sólo tienen que 
cambiar este carácter, y alguna otra 
cosa. Por ejemplo para tabular dentro 
de una línea equivale a una TAB (18), 
y dos, a un TAB (36). La sentencia 
INPUT ("- Jí**? variable. Puede 
ser sus ti tu fdo en alguna máquina por 


un PRINT -«««o_variable: 

INPUT VARIABLE. 

Una de las ventajas del NEWBRAIN 
es la de poder usar Pl sin necesidad de 


escribir su valor. Por Jo que para otras 
máquinas se tiene que cambiar. 

Para subrayar algunas frases utilizo 
ef comando GRAPHICS A. V para la 
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presentación del menú uso GRAPHICS 

Y, 

Su utilización es muy sencilla tan 
sólo se tiene que ir siguiendo las ins¬ 
trucciones que el mismo programa nos 
da. Además hay que consultar el esque¬ 
ma que viene como anexo, que repre¬ 
senta de forma numerada los posibles 
esquemas, con su distribución de ele 
mentos. 

Espero que éste no sea el primer ar^ 
tículo sobre esta nueva máquina, sino 
que sea el prefacio de otros programas 
que si la revista lo permite iré publi- 
cando. 



1 REM 


************************************************************************** 

_ ■=. j— j—_ n A m i 1 1 —. ^ n r i it nrvrr' roer 1 ÍZ M r I Ac 


REM ***** 
REM ***** 
REM ***** 
REM ***** 
REM ***** 
REM ***** 


PROGRAMA ... FILTROS PASITOS DIVISORES DE FRECUENCIAS * 

AUTOR .. JOSEP PALACIO RIBAS * 

FECHA . 24 DE MAIG DE 1.984 * 

<C) . J. P. R. < 1984> * 

MAQUINA .. NEWBRAIN AD 

***** MEMORIA OCUPADA ... 20639 BYTES 

3 REM ************************************************************************** 

? 0 REM - DEFINICION DE VARIABLES Y MENU GENERAL --- — 

L00 RUT 31:CLEAR sOPEN#0,4,"L":DIM Dí(50),D0(50),D3<50>,D4C50),L1<50),L2<50),C1( 
50 >,C2(50>,K*(50),LC50),NE(50),DH<50) 

L 05 ON ERROR GOTO Í08 

? 

9 j" rrrrrrrrrrrrrr( - MENU GENERAL rrrrrrrrf rrrrrr" 

? ( « _ ATENUACION s 6 DB POR OCTAMA -" : ? 

;D* 

¡D* 


110 

120 

130 

135 

140 

141 
145 
150 
155 
15Ó 
160 
165 

170 

171 
175 
200 
201 
202 
20 3 
204 
20 5 
206 
20 7 
900 


1 : 
2: 


FILTRO 

FILTRO 


DE 

DE 


LUAS‘ 

LUAS 11 


r $ 

O s-9 


_ ATENUACION : 1 2 DB POR OCTAVA 

3: FILTRO DE 2 UIAS";D* 

4 ¡ FILTRO DE 3 LUAS"iD* 

___ ATENUACION : 1 8 DB POR OCTAUA 
5: FILTRO DE 2 OIAS";D* 

ó; FILTRO DE 3 OIAS" i D* 


? f " 7: CALCULO DE 
INPUTC"SELECCIONE 
IF D£="l* THEN GOTO 


. ? 

■ -9 ! 


IF 

IF 

IF 

IF 

IF 

IF 

REM 


DS="2" 
[>S= "3" 
D*= l 
DS= 1 
D*=' 
DS= M 


i q ii 

' 5" 
’ó" 
1 7* 


THEN 

THEN 

THEN 

THEN 

THEN 

THEN 


GOTO 

GOTO 

GOTO 

GOTO 

GOTO 

GOTO 


LA INDUCTANCIA Y DEL FUSIBLE" 

: " ) D$ 

1000 

2000 

3000 

4000 

5060 

6000 

7000 

CALCULO OE LOS CIRCUITOS 1,2,3 Y 4 


1006 RUT 31 

1610 ?,"CALCULO DE FILTROS PARA CAJAS ACUSTICAS" 

1011 ?,’'___' 

1015 ?," ATENUACION : 6 DB POR OCTAUA" 

1016 ?," FILTRO DE 2 LUAS":?:? 

====== " ; -P 

181S INPUTÍ"ESCRIBA LA IMPEDANCIA DE UN ALTAVOZ , EN OHMIOS : “ ) D8 
1819 INPUT("LA FRECUENCIA DE CORTE 0 DE SEPARACION , HZ : “>D4 

18 20 L1=D0/<2*PI*D4>:C1 = 1/<2*PI*D4*D8 >:L=L1*1088:C=C1*1000880 
1030 ?: ? “ SI ESCQJE EL CIRCUITO NUMERO 1 , 

1835 ?“EL CONDENSADOR DEBE SER DE " ;C; H MICROFARADIOS" 

1850 ?"Y LA IMPEDANCIA DEBE SER DE ";L¡" MILIHENRIOS" 
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10ó5 1NPUT<"FRECUENCIA DE TRANSFERENCIA, ALTAVOZ DE AGUDOS, HZ : ")D3 
1070 DD=D0/4¡CC=1000000/(2*PI*D3*DD> 

1080 ?:?"PERO SI ESCÜJE UNO DE LOS CIRCUITOS 2,3 Y 4," 

1090 ?“ENTONCES EL CONDENSADOR SERA DE "¡CC; " MICROFARAC1 OS“ 

======■' . INPUTÍ "Si desea continuar pulse S " )M$:IF THEN GOTO 2000 

1101 IF MtO"S" THEN GOTO 100 


1900 REM-CALCULO DEL CIRCUITO 5 

2000 PU1 31 

2010 ?,"CALCULO DE FILTROS PARA CAJAS ACUSTICAS" 

2011 ?,"___—-“ 

2015 ?," ATENUACION : 6 DB POR OCTAVA" 

2016 FILTRO DE 3 VIAS":?:? 


====== ii . o 

2018 INPUTÍ"ESCRIBA LA IMPEDANCIA DE UN ALTAVOZ , EN OHMIOS s " )D0 

2019 INPUTÍ"FRECUENCIA DE TRANSFERENCIA, ALTAVOZ DE GRAVES, HZ : " )D1 

2020 INPUT <"LA FRECUENCIA DE CORTE O DE SEPARACION , HZ s " > D4 

2021 L1=D0*1000/(2*PI*D1)iL2=D0*1000/í2*PI*D3> 

2030 C1 = 10@0000/Í2*PI*D1*D0)iC2=l00 00 0 0/í2*PI#D3*D6) 

2040 ?'>========================================================: 

,? t « VEA EL CIRCUITO NUMERO 5" 


2041 

?, 

ii 





II 



2650 

? w EN 

SERIE 

CON 

ALTAVOZ 

DE 

GRAVES, 

"Ti : 

« ■ i i i 11 
j l1 i 

MILIENRIOS" 

20 Ó0 

?" EN 

SERIE 

CON 

ALTAVOZ 

DE 

MEDIOS, 

C1 : 

ji.pi * i» 
> L1 j 

MICROFARADIOS" 

2070 

?* 





Y 

L2í 

H • 1 p II 

MILIENRIOS" 

2080 

7 H EN 

SERI E 

CON 

ALTAVOZ 

DE 

AGUDOS, 

C2: 

“ ; C2; *■ 

MICROFARADIOS" 


2100 ?" 


======”; | (sjpuTÍ “ S i desea, continuar pulse S " )M$ 

2101 IF MÍO'S" THEN GOTO 100 

2102 IF M$¡= "S" THEN GOTO 300 0 


2900 REM-CALCULO DE LOS CIRCUITOS 6 Y 7 

3000 RUT 31 

3010 ?,"CALCULO DE FILTROS PARA CAJAS ACUSTICAS" 

3011 ?,"_“ 

3015 ?," ATENUACION ;12 DB POR OCTAVA" 

3016 ?," FILTRO DE 2 VIAS":?:? 


======".? 

3018 INPUTÍ"ESCRIBA LA IMPEDANCIA DE UN ALTAVOZ , EN OHMIOS : ")D0 

3019 INPUT<"LA FRECUENCIA DE CORTE O SEPARACION, HZ : "> D4 

3020 L1—D0*5QR Í2)#1000/Í2*P1*D4>:Cl = 1000000/í2*PI#D4*D0*SQR(2)):LA=D0*1000/í2*PI 
*D4) 

3030 LB=D0* 1000/í1,¿*2*PI*D4) 

3070 CA=1.ó*l000000/í2*P1*D4*D0) 

3080 CB=10@0000/<2*PI*D4*D0> 

3090 ?"COMPONENTE"¡TABÍ18)¡"CIRCUITO NUMERO 6“ ;TAB(45);"CIRCUITO NUMERO 7" 

3091 ? u _ “ ;TAB( 18) ; 11 ... " ¡TABÍ45) ¡"_" 

3100 ? "L1 VALE : “¡TABÍ21>;L1¡TABÍ48);LA;TAB<63)¡ "MILIENRIOS" 

3110 ? "C1 VALE : " ¡TABÍ 21) ;C1 ;TA8(48) ;CA¡TABÍ 63) ; "MICROFARADIOS" 

3120 ? “L2 VALE : “¡TABÍ21);L1¡TABí48);LB¡TABÍ63)¡"MILIHENRIOS" 

3130 ? "C2 VALE : "¡TABÍ21>;C1;TABÍ48);CB¡TABÍ63)¡ "MICROFARADIOS" 


========":?:INPUTÍ"Si desea continuar pulse S ")MS 

3141 IF M*<>"S" THEN GOTO 100 

3142 IF M$= “S" THEN GOTO 4006 

3900 REM-CALCULO DEL CIRCUITO S -- 


4000 

4010 

4011 

4015 

4016 

4017 


PUT 31 

?,"CALCULO DE FILTROS PARA CAJAS ACUSTICAS" 

'P II _ _ _ a 

?’" ATENUACION :12 DB POR OCTAVA" 

?," FILTRO DE 3 VIAS":?:? 

= “ : ? 
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40 18 
4019 
40 20 
4021 
4622 
4030 
4931 
4056 
4051 

4060 

4061 
40 30 

40 81 
4100 

41 10 
4120 
41 30 
4148 


INPUTC "ESCRIBA LA I MPEDANCIA DE UN 
1NPUTC"FRECUENCIA DE TRANSFERENCIA, 
INPUT ("FRECUENCIA DE TRANSFERENCIA, 
L1=D0*SQR<2)*1000/<2*PI*D1) 
L2=D0*SQR<2)*I080/< 2*PI*D1) 
L3=D0#SQR< 2) *1000/(2*PI*D3) 
L4~D0*5QR(2)*1000/C2*P1*D3) 

C1=1000600/(2*PI*D0*D1*SQR(2)) 

C2=í000000/í2*FI*D6*D1*SQRC2>) 
C3=1080000/Í2*PI*D0 *D3*SQRC 2)> 

C4—1 00 0000/í2*PI*D8*D3*SQR< 2)) 


ALTAVOZ , 
ALTAVOZ 
ALTAVOZ 


EN OHMIOS 
DE GRAVES, 
DE AGUDOS, 


HZ 

HZ 


1 )D0 

> 

1 ) 


DI 

D3 


CIRCUITO NUMERO 8" 


< I i *' 

í L2 ; 1 
i L3; ‘ 
j L4; 1 


4141 
41 42 
4900 

5080 
50 10 
50 11 
50 15 
5016 
50 17 


?"L1 : 

? U L2: 

?" L3 5 
?" L 4 ¡ 

7 * 7 > L ========= 

====":?•INPUT< 
IF M^ < > 11 S" 

IF M*= "S* 

REM- 


MI LI HENRI OS" y 
MILIHENRI OS 11 i 
MILIHENRIOS" y 
MILIHENRIOS" ; 


7 ■* 
7» 
?" 
V a 


C1 ; 1 
C 2 : 
C3: 1 
C4 ¡ 


; C1 i 11 MI CROFARADI OS 1 ' 
;C2;" MICROFARADI OS" 
;C3; H MICROFARADI OS" 
;C4;" MI CROFARADIOS" 


Si desea continuar pulse S 
THEN GOTO 100 
THEN GO'Í O 500 0 

- CALCULO DEL CIRCUITO 


>MS 


RUT 31 

?,"CALCULO DE FILTROS PARA CAJAS ACUSTICAS" 


ATENUACION :1S 
FILTRO DE 


DB POR OCTAVA Jí 
2 VIAS 11 :?:? 




5018 INPUT<"ESCRIBA LA IMPEDANCIA DE UN ALTAVOZ , EN OHMIOS 

5019 INPUT("LA FRECUENCIA DE CORTE O SEPARACION, HZ 
50 20 L1 = D0*1000/C3*PI*D4):LX=D0* i 000/(4*PI*D4) 

5830 L2=2*D0*1000/(2*PI*D4>:LB=L2 

50 48 L3=D0*1000/<2*PI*D4) :LC=D0*i 000/<3,2*PI*D4) 

50 50 Cl = ló00000/< 2*PI*D4*D0>:CA=2000000/<2.0*PI*D6*D4) 

5060 C2=1000800/(2*PI*D4*D0); CB=í 000000/(3.2*PI*D8*D4> 

50 78 C3=10 00 000/< 4*P I *D4*D0 > : CC=1 008000/( 2.0*P I *D0 *D4) 

5075 LA=D0*1000/<4*PI*D0> 


" >D 0 
“) D4 


51 n 

5112 

5126 

5130 

5146 

5156 

5166 

5170 

5180 


51 31 
51 82 
5900 


? TABC 
? TAB< 
?*L1 = 

? 11 L2= 
?" L3= 
?"C1 = 
02 = 
7" C3= 

7; ■?"==: 
:=== » : ? 
IF m< 
IF M*= 
REM — 


í 3> ; "CIRCUITO NUMERO 9" 

13) i "_“ 

" ;TABC15 >5 LI;TABC43>\LX 
11 ;TAB< 15> ; L2 ;TABC 43) ; LB 
“ ;1ABC15) jL3;TABC43);LC 
H íTABC15>;C1;TA8C43);CA 
H ;TAB<15) ;C2 ;TAB(43>;CB 
11 ;TAB( 1 5 > ; 03 ;TAB( 43 ) ;CC 


TABC41)j"CIRCUITO NUMERO 10" 

TABC 41 > i "_ 11 

TABCÓ0) 

TABCÓ8) 

TABC 60) 

TABC60) 

TABC60) 

TAB C 60 > 


;/ MILI HENRI OS" 

;"MILIHENRIOS" 

;"MILIHENRIOS" 
"MICROFARADI OS" 
y "MICROFARADIOS" 
"MICROFARADIOS" 




¡INPUTC"Si desea continuar pulse S 
>"S" THEN GOTO 100 
U S H THEN GOTO 6000 

- INHIBICION DEL CIRCUITO 10 


6000 RUT 31 

¿016 ?,"CALCULO DE FILTROS PARA CAJAS ACUSTICAS" 

6011 ? , " _" 

¿015 ?,“ ATENUACION ilS DE POR OCTAVA" 

6016 ?," FILTRO DE 3 VIAS 11 :?:? 

======" - 7 

¿0 30 ? a ,.. tNO LE RECOMENDAMOS QUE EMPLEE ESTE UPO DE CIRCUITOS RAS 

¡VOS" s?, 11 PARA CONFIGURAR ESTE TIPO DE FILTRO" 

========= 11 ¡ 7 
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6040 FGR 2=0 TO 1600 sNEXT ZiSOTO 6050 

========“ : ?: INPUT ("Si desea continuar pulse S " >M$ 

6051 IF M*<>"S" THEN GOTO 100 
6522 IF m= "S" THEN GOTO 70 0 0 

¿900 REM-CALCULO DE LA INDUCTANCIA Y DEL FUSIBLE- 


7000 RUT 31 ¡? 1AB< 20);"CONTRUCCION ELEMENTAL DE UNA BOBINA DE FILTRO" 

70 01 ? 7AB(28> : " ¡ 9.0 

7010 ?“ SI NOS PROPORCI ONA ALGUNOS DATOS , LE DI REMOS LpT BOBINA QUE DEBE" 

7020 ?" CONSTRUIR PARA CONSEGUIR UNA CIERTA IMPEDANCIA APROXIMADA" 

7030 ?" ES PRECISO EMPLEAR HILO DE COBRE ESMALTADO DEL DIAMETRO INDICADO" 


7048 ?" SI LA BOBINA NO SATISFACE SUS NECESIDADES FISICAS DE ESPACIO O" 
7050 ?" DE RESISTENCIA OHMICA, VAYA ALTERANDO LOS CALORES SOLICITADOS " 
7060 ?■ HASTA CONSEGUIR LA QUE MAS LE CONVENGA" 


70 75 
0 

71 00 
7101 
71 02 
7103 
71 18 
71 20 
71 30 
7140 
71 41 
7160 
71 65 
7166 
7170 
7175 
7180 
7200 
7210 
7220 
7230 
7290 


? TAB<15)¡"CUANDO ESTE PREPARADO PULSE <NEWLINE>";Kf-;:INPUT(" ")K$:GOTO 


PUT 31¡? TAB<20>;"CONTRUCCION ELEMENTAL DE UNA BOBINA DE FILTRO” 
? TAB<20) ; 

?"ESCRIBA LOS SIGUIENTES DATOS" 


? 11 11 

INPUT("EL CALOR DE LA INDUCTANCIA 'L' EN MILIHENRIOS 
INPUT("EL DIAMETRO DEL NUCLEO DE LA BOBINA EN MM 
INPUT("LA POTENCIA DE UN CANAL EN NATIOS 'RMS' 

INPUT ( 11 LA IMPEDANCI A DE LA CAJA, 4,8 O 16 OHMIOS 

IF IM< >4 GOTO 7165 

K=2:GOTO 7200 

IF IM=8 GOTO 7170 

IF IM<>8 GOTO 7175 

K=1¡GOTO 7200 

IF IM=1 6 GOTO 7180 

K=9.5:GOTO 7260 

NE=SQR<(L#1000*25*A>/(0.315*A A 2)) 

DH=0,5*A1/SQR(NE) 

LH=NE*2*PI*1.5*A/100 

RO= (0 . 0172#4*LH)/(PI*DH''2) 


") L 

") Al:A=A1/18 
"> Li 
" ) IM 


?“ 


710 


7300 ?"PARA CONSTRUIR LA BOBINA OPTIMA DE ";L;“ MILIHENRIOS" 

7310 ?"DEBE DE TOMAR UNOS " } LH}“ METROS";" DE HILO DE ";DH;“ MM.";" DE DIAMETRO" 
7320 ?“BOBINAR *¡NE ¡"ESPIRAS ";" SOBRE UN NUCLEO DE "¡Al;" MM."¡" DE DIAMETRO" 

_______ ii 

7330 ?"LONGITUD DEL BOBINADO: ";Al/2¡* MM. ALTURA DEL MISMO: "¡Al/2;" MM." 
====== 11 

7340 ?"LA RESISTENCIA TOTAL DE ESTA BOBINA SERA DE ";RQ;" OHMIOS":IF RO>0.99 THE 
N PRINT "QUE ES DEMASIADA PARA ESTE USO. DEBE DE CONFIGURAR OTRA BOBINA," ;?■== 


7341 IF W<80 GOTO 7345 

7342 IF W>80 OR LK100 GOTO 7346 

7345 FA=0.84*K*L): GOTO 7350 

7346 FA=3*K:GQTO 7350 

7350 ?“DEBE COLOCAR UN FUSIBLE DE ";FA;" AMPERIOS EN LA CAJA ACUSTICA." 

========" : ?¡iNPUT("Si desea continuar pulse S ")M4 

7361 IF M*<>”S" THEN GOTO 100 

7362 IF m= “S“ THEN GOTO 8000 
8000 PUT 31:?:?:?:?:?!?:?:?:? 

8100 ?,,"FIN DEL PROGRAMA":?;?:? 

8200 ?,"Para regresar al menú principal pulse <NEWLINE> "¡Mí;:INPUTí" *)M$:ÜOTO 
100 

8300 END 
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-\ 

CBM 

64 


\ _ / 


Espíritu 
¿estás aquí? 
o los fantasmas 
del Commodore 64 

(1. a Parte) 


Esta es una historia para no dormir que os trans¬ 
portará a través de la noche de los tiempos, a la 
búsqueda de los primeros neofantasmas. 

No abandonéis, materializarlos en la pantalla de 
vuestro Commodore 64, en toda su dimensión e 
incluso en color gracias a este programa Basic. 


Un fantasma es esencialmente 
un bloque gráfico definido por el 
utilizador en la memoria, y contro¬ 
lado por un procesador 6566, 
circuito de vídeo del Commodore 
64. 

El programador eligirá la for¬ 
ma, los desplazamientos y el 
color; y podrá controlarlos fácil¬ 
mente mediante POKEs hábil¬ 
mente elegidos. 

Haced pasar los fantasmas por 
debajo o por encima de todo lo 
que se encuentra en la pantalla, 
sus eventuales colisiones serán 
detectadas, podiendo con ello 
realizar fantásticas ilusiones de 
relieve. 

Pero, veamos los problemas 
técnicos antes de que nuestra 
imaginación se desborde 


Cada fantasma está constitui¬ 
do por una matriz de veinticuatro 
puntos de longitud por veintiún 
puntos de altura. Cada punto 
representa una unidad elemental 
de la pantalla, es decir ciento 
veinticuatro puntos por fantasma. 


Por favor, dibújame 
cualquier cosa 
fantástica 


La primera dificultad reside en 
la realización del dibujo del fan¬ 
tasma, además de la asignación 
de los valores numéricos nece¬ 
sarios para la escritura en me¬ 
moria. Este trabajo puede hacerse 
en una hoja de papel, trazando 



una cuadrícula de veintiún líneas 
por veinticuatro columnas (dia¬ 
grama 1 de la página siguiente). 

Procediendo de igual forma 
con los tres octetos de cada línea 
del diseño, obtendremos los 63 
(21 x 3) números a introducir en 
RAM. 

Si juzgáis pesado este trabajo, 
utilizad e! programa «generador 
de fantasmas». 
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1 

1 

1 

1 

1 

H 

I 

1 


n 

□ 

■ 

□ 


□ 


# Dibufo 

□ 

□ 

□D 

□ 

D 

El 

0 

* Número binario correspondiente 


o ■ o ü- 16-0-4 -o - i -2H (Valor decimal definitivo ) 


Diagrama 2 


ADR. 

+ 

CONTENIDO 

53248 

0 

Coord X del fantasma 0 

53249 

1 

coord Y du fantome 0 

53250 

2 

- X - 1 

53251 

3 

— Y — 1 

53252 

4 

- X - 2 

53253 

5 

— Y — 2 

53254 

6 

- X - 3 

53255 

7 

’— Y — 3 

53256 

8 

- X — 4 

53257 

9 

— Y — 4 

53258 

! 10 

— X — 5 

53259 

11 

— Y — 5 

53260 

12 

— X — 6 

53261 

13 

— Y - 6 

53262 

14 

— X — 7 

53263 

15 

— Y — 7 

53264 


Coord. X de mayor peso 

53269 

21 

Selección de los fantasmas 

53271 

23 

Ampliación vertical de los fantasmas 

53277 


Ampliación horizontal de los fantasmas 

53287 

!* 

Color del fantasma N ? j0 

53286 

40 

— 1 

53289 

41 

- 2 

53290 

42 

3 

53291 

43 

— 4 

53292 

44 

5 

53293 

45 

— 6 

53294 

46 

7 


Tabla 3 


|3 mpfrtt? |r,'U * 


ElQDQQQOOi 

ataagaanai 


Valores decimales 

Contenido binario de Ha direc. 53269 

Número de fantasmas 

Valor decimal correspondiente 


Tabla 4 


£C 

ín 

<Ü 1 

m 


tC 

r 

*3 


_ 

t Valores decimales 

0 

S 

~0\ 

0 


0 

0 

0 

i Contenido de las direc T 5327V 53277 


JL 

T] 

I 

T 

L 

_L 


* Número de fantasmas 




í 

i 




fr Valor decimal correspondiente 


Tabla 6 





Dejad a un lado, de momento, 
vuestro fantasma numérico para 
considerar desde más cerca el 
famoso 6566. Este procesador 
utiliza un cierto número de direc¬ 
ciones (la primera comienza en 
53248) de vital importancia {bro¬ 
mas aparte} para nuestros fan¬ 
tasmas (tabla 3 de al lado). 

Un segundo registro, que va de 
las direcciones 2040 a 2047, nos 
resultará de utilidad inmediata. 


Dirección Contenido 


2040 rP de bloque dei fantasma 0 

2041 n 9 de bloque del fantasma 1 

2042 rP de bloque deI fantasma 2 

2043 n 9 de bloque deI fantasma 3 

2044 rP de bloque del fantasma 4 

2045 rP de bloque del fantasma 5 

2046 rP de bloque del fantasma 6 

2047 rP de bloque de! fantasma 7 


Con ía lectura de estas tablas 
habréis podido constatar que pue¬ 
den generarse ocho fantasmas si¬ 
multáneamente. En realidad, es 
posible aumentar este número, 
pero no es este nuestro propósito 
de hoy. 


Fantasmas en color y en 
toda su dimensión 


He aquí, paso a paso, las ins¬ 
trucciones a introducir desde 
teclado para provocar el naci¬ 


miento de un fantasma de lo más 
fascinante; referiros cada vez al 
programa de demostración. 

Líneas 10 a 20: diseño. Colo¬ 
cad en DATA los sesenta y tres 
valores numéricos de vuestro 
fantasma obtenidos gracias al 
método descrito anteriormente. 

Línea 30: dirección de partida. 
La direcc]ón 53248 es la dirección 
de base del 6566, a partir de eíla 
se calculan la mayor parte de las 
direcciones útiles a los fantas¬ 
mas. 

Línea 40: validación de fantas¬ 
mas. Podremos seleccionar, por 
ejemplo, ¡os fantasmas 3 y 5 de 
entre los ocho posibles con POKE 
en 53269 {tabla 4 de al fado). 

Un fantasma validado se tra¬ 
duce en un 1 en el octeto (que 
transformaremos al vaíor decimal 
correspondiente) contenido en es¬ 
ta dirección. 

Líneas 50 y 60: bloques de 
memoria. Utilizaremos tres blo¬ 
ques para memorizar el dibujo de 
nuestro fantasma: 


n 5 de bloque 

direcciones 

13 

832 a 894 

14 

896 a 958 

15 

960 a 1022 


Hacemos saber a los fantas¬ 
mas 3 y 5 que tienen memorizado 
su diseño en el bloque número 13 
mediante dos POKEs {tabla 3 de al 
lado). 


E! Ordenador Persona!, núm i 28 


151 
















1 REM123456789012345678901234567890123456789012345678901234567890123456789012345 



Línea 70: transferencia del 
diseño. Transferimos nuestros se¬ 
senta y tres DATA al bloque 13. 

Línea 80: color. Nuestros dos 
fantasmas tendrán el color n Q 13 
(verde)... ííí obligatoriamente!!! 

Líneas 90 y 100: tamaño. 
Deseamos un fantasma n q 3 de 
talla grande. Serán necesarios 
dos POKE. Uno para aumentar la 
altura y el otro para duplicar la 
anchura. El valor del POKE se 
obtiene de la forma habitual (tabla 
5 de la página anterior). 

Líneas 110 y 120: posición de 
la pantalla: Dos POKEs más son 
necesarios para indicar a cada 
fantasma la posición que deberá 
ocupar en la pantalla. Uno de ellos 
para indicar la posición horizontal, 
y el otro para la vertical. Si 
cambiáis estos valores, en un 
bucle por ejemplo, vuestro fantas¬ 
ma se desplazará por la pantalla. 


2 REM123456789012345678901234567890123456789012345678901234567890123456789012345 

3 REM1234567890123456789012345678901234567890123456739012345678901234567890i2345 

4 REM1234567890 í 2345678901234567890123456789012345678901234567890123456789012345 


6 REM <C> COPVRIGTH EL ORDENADOR PERSONAL 
10 PRINT"TABC8)"IISDENERADOR DE FANTASMAS" 

15 F0RX=55296T056295:POKEX,3•NEXT 
20 : 

25 PR I NT' : IBGSI*= ARRIBA" 

30 PRINT "511*= ABA JO" 

35 PRINT" SJ» 5 IZQUIERDA" 

40 PRINT" 5K*=BERECHA" 

45 PRINT"*H5eHIFT*=TRAZA" 

50 PRINT"3*#= TERMINAR" 

55 PRINT" S?»=CALCULAR" 

60 PRINT"ANULAR" 

65 PR I NT" JMPEQUE/Q : " 

70 PR I NT" MQWQGRANDE : KfiK" 

75 PRINT" SMODO DIBUJO" 

80 DIMH < 62) : AB-53248=L=1078:W=55350 

85 FGRX=0TQ25 : POKEL+X,102 : POKEW+X,1 

90 POKEL+22S40+X, 102 = POKEW+22*40+X, 1 *• NEXT 

95 FORX*0TO22 : P0KEL+X*48,102 : POKEW+X*40,1 

100 POKEL+25+X#40>102 : POKEU+25+X*40,1=NEXT 

105 P=L+41 

110 POKEPj 87 

115 PQKE198,0 ; WAIT198,1 

120 A*PEEK<197) 

125 IFPEEKí653)THENPOKEP, 160 : GOTO135 
130 POKEP,32 

135 IFA=33THENM=-40 : G0T0175 
140 IFA=34THENM S -1 : GOTO175 
145 IFA*37THENM=1 : G0T0175 
150 IFA-36THENM=40 : G0T0175 
155 IFA=54THENP0KEAB+21,0 ; RUN 
160 IFA=55THEN185 
165 IFfl*57THEN225 
170 GQTQ110 

175 IFPEEK(P+M) S 102THEN110 

180 P=P+M:GOTO110 

185 PRINT“naCOMPILACION" 

190 N=0 •• FORV* 1T021 ^ FORX*0TO2: FORZ=7TO0STEP- 1 
195 IFPEEK<L+X*8+V*40+8-Z)«160 THEN OC+2TZ 
200 NEXTZ'•P0KE832+N,C : H(N) S C : N=N+1 : C=0 
205 NEXT X,Y 

210 POKEAB+21,12 : POKE2042,13-POKE2043,13 : POKEAB+4 ,90 ; P0KEAB+5,150 

215 POKEAB+6,80•POKEAB+7, 130 : POKEAB+23,8 : POKEAB+29,8 

220 PRINTTMIODO DIBUJO " GOTO110 

225 Z=3 : K=PEEK(43)+PEEK(44)#256+4■POKEAB+21,0 

230 PRINT"HÍTERMINA\S/N)?" : POKE 198,0 

235 GETAS:IFA$<>"N"0RA$O"S"THEN235 

240 IFA$*"N"THEN220 

245 PRINT"nW","3PASAND0 EL DIBUJO A <DATA>" : PRiNT")WUN MOMENTO POR FAVOR..." 

250 PQKEK,131 : J*1 

255 D*=STR$<H<Z>)=F0RX=2T0LEN<D$> 

260 POKEK+J,ASCCMIDf(Df,X,1)):J*J+1 
265 NEXT X 

270 Z=Z+1:IFZ=63THEN285 

275 IFJ<=71THENPOKEK+J,44 = J*J+i=G0T0255 

280 FOR X=J T075 : POKEK+X,32 : NEXT : POKEK+76,0 : K=K+81 ; GOTO 250 
285 F0RX*JT075 : PQKEK+X,32:NEXT:F0RX«76T078 : FOKEK+X,0:NEXT 
290 LIST ; END 


Es al final cuando 
comienzan los 
problemas 

¡Horror! Después de la verifi¬ 
cación del programa y a continua¬ 
ción del RUN, podréis sentir 
vuestros crispados cabellos. Vues¬ 
tra máquina se encuentra embru¬ 
jada y, peor aún, ningún borrado 
de pantalla podrá ahuyentar a los 
ecotoplasmas, solamente con las 
teclas SPOP/RESTORE podréis 
liberaros de esta visión... 

Juan-Pedro Lalevée 


5 RtM DEMOSTRACION FANTASMAGORICA I¡E LOS RESULTADOS 

6 REM <C> COPVRIGTH EL ORDENADOR PERSONAL 

10 DATA 0,60,0,1,255,128,7,255,224,15,254,240,15,248,248,31,128,120,31,0 
15 DATA 120,23,0,56,24,0,24,25,199,16,8,0,16,8,0,16,4,48,32,4,0,32,2,4 
20 DATA 64,2,56,128,1,1,128,0,130,128,0,124,64,1,0,240,255,129,252 
30 AB=53248 

40 POKE AB+2i,40 : REM VALIDACION 

50 FOKE 2043,13-REM DIRECCION DE DESTINO 

60 POKE 2045,13 

70 FOR Q=0TO62 : READ DA : POKE 832+Q,DA : NEXT Q : REM ESCRITURA DEL DIBUJO 
80 POKE AB+42,13'POKE AB+44,13:REM COLOR 
90 POKE AB+23,3 : REM TAMAXG 
100 POKE AB+29,8 

110 POKE AB+6,150:POKE AB+7,180:REM COORDENADAS 
120 POKE AB+10,98 : FOR V*0TO200=POKE fiB+il,V:NEXT 
138 END 
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Espíritu, 
¿estas aquí 
o 

los fantasmas 
commodore 



(2 a parte) 


En la primera parte de este artículo, habéis podido 
conocer algunos espectros abominables, creados 
en la sombra de vuestro Commodore 64. Esta 
segunda parte os permitirá verlos a todo color. 
También en esta ocasión, terror y escalofríos es¬ 
tán presentes en el programa. 



Hasta ahora hemos manipula¬ 
do ectoplasmas monocromáticos. 
Hagamos surgir nuevos mons¬ 
truos, artísticamente más decora¬ 
dos, al precio de una mayor 
complejidad técnica: fantasmas 
multicolores compuestos de tres 
colores diferentes a la vez (cuatro 
teniendo en cuenta el color de 
fondo que siempre es transpa¬ 
rente). 

Aunque el diseño de un fan¬ 
tasma multicolor también esté 
codificado a partir de una matriz 
de 21 líneas por 24 columnas, la 
codificación es diferente a la 
anterior. En lugar de un bit para 
representar un punto apagado o 
encendido, se utilizan grupos de 
dos bits que definen tres ele¬ 
mentos: 

* color de base del fantasma, 

* color sui'-ementario número 1, 
' m \* ■ plementario número 2. 

octeto formado de cuatro 
us de dos bits, determina la 
lición de los puntos eventual¬ 
mente encendidos. 

Es evidente que esta codifi¬ 
cación en dos bits proporcionará 
una menor definición de imagen, 
puesto que serán encendidos o 
apagados dos puntos a la vez 
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READy. 


1 REM#*#**#****##*m**##**m**>w***##** 

2 REM 

3 REM EDITOR DE SPRITES MULTICOLORES 

4 REM 

5 REM (C) COPVRIOTH EL G.F. 

6 REM 

7 REmttMmmmMwmM***************** 

100 ■ 

113 REM ** INICIALIZACIGNES ** 

120 : 

130 DIM D?í<21»24>»V<63:>»Cía5í 

140 FOR Q=0TO15-PERD CS<Q>-NEXT RÉM HOMBRES BE LOS COLORES 

150 DRTñ NEGRO» BLANCO»ROJO»OVAN»ROSA» VERDE»AZUL MRRINO» AMARILLO 

160 BATA NARANJA,MfiRRON,ROJO CLARQ.GRIS FUfcRTE»GRIS MEDIO»VERDE CLARO»AZUL CLARO 

165 DATA GRIS CLARO 

170 

136 £=1039 : F=E+54272 1 REM DIR. PANTALLA / COLORES 
190 PRINrií UN MOMENTO POR FAVOR ..." 

200 AB=53248 : REM DIR. DE BASE DE LOS 3PRITES 

210 POKE AB+21»0 : POKE AB+23.-0 : FOKE AB+23»0 REM NEUTRALIZACIONES 

220 FOR L=lTG2i f'0RC=lT024 3XCL,C)=58 : NEXT C»L ; REM INÍCIALIZAR CUADRICULA 

230 FOR Q=1T063 1 y <G)=0NEXT ; REM INICIALIZAR LOS VALORES DE LOS DATA 

240 POKE AE»60 : FOKE AB+1»200 ; REM POSICION DEL SPRI T E SOBRE LA PANTALLA 

250 POKE 2040»13-REM SPRITE 0 EN £L BLOQUE 13 

260 FOR Q=íT063 : PGKE831 +QjVÍG) : NEXT ; REM RELLENO DEL BLOQUE 13 

270 POKE AB+21»1• REM VALIDA EL SPRITE 0 

280 POKE AB+28»1-REM MULTI-COLOREA EL SFRITE 8 

290 POKE AB+37,0 ■ PGKEAB+38» i -P0KEAB + 39 j 14 = REÍ1 COLORES DE SALIDA 





310 REM PRESENTACION DE LA PANTALLA *44 
320 : 

330 PRINT"3S4 FANTASMAS 'PRINT"SÍIULTICOLORES M' 1 
340 PRINT^StOELiaBORRAEO" : PRINT , ’(a5Fi» : 0ND0íflZUL MARINO' 1 
350 PRINT"lilSlBSHC0*NEGRO" : PRINT"¡BS2SB1C1+fiZUL CLARO" 

3S0 PRINT"ÜÍJBS«1C2*BLRNCC ,; PRINr^S^MCOMPILACION" 

370 PR!tHT"í¡HHMEXP. HOR." ■PRINT"!19VSCXP. VER." 

380 PRINT"¡MLi<CñLCULfi BATAS" 

390 PRINT"SiafiBSñNULA" ; PRINT‘‘IiiSKSaSHLVA K7" 

408 RRINT' íilSCBCAROR K?“ -PRINT"GTSTfi^TERr'IINR" 

410 : 

420 REM *#* DIBUJO BE LA CUADRICULA *** 

430 v=e /""^n 

440 FOR L=1T021 : F0R C-1T024 ( J 

450 Y*Y+1 ■~ A ' 

460 POKE E+Y,Díi<L*C) FCKE F+V, 12 ( ' ( 

470 NEXT C v »-- 

480 V=V+Í6 
490 NEXT L 
500 X=i V=1 
510 OOTO 750 
520 : 

530 REM *** ANALISIS DE LAS PETICIONES #** £, 

540 ■ 

550 POKE 198» 0 ; WAIT198»i : GET Aí 
563 l=e+x+<v-i;*40:c=d:'¡<v,x) 

570 POKt L»C : POKE L+l.C 
580 : 

590 IF A*=CHR$a7) THEN Y=V+1 : IF V>21THEN V=í 

600 ¡F flí=CHR*í145>THEN V=V-1-IF Y< 1THEN V=21 

610 IF Aí=CHR*í23> THEN X=X+2 IF 5023THEH X=1 

620 IF A*=CHR*<157)THEH X=X-2-ÍF X< 1THEN X=23 

630 IF flf=CHRíÍ201 THEN DX(Y»X>=56 DH<Y,X+1)=53 

640 IF Aí>"0" AND R$<"4“ THENL*4S+VHL<R4):DXÍV»X)=L ; DX<V»X+1J=L 

650 IFAÍ="=” THEN 799 

660 ¡F Ai="H" THEN POKE AB+29»ABS<PEEKÍAB+29)-l) 

679 IF A*="V"THEN POKE AB+23»AB3<PEEK<AB+23)-l) 

680 IF A*="D"THEN 980 

699 ¡FA*="C" OR ñ*= :, S ,, CRñí= ,, A"ORní="T" THEN 1180 

700 IF A*=CHR*<133> THEN L=33-G0SUBÍ37e 
710 IF Af*CHR$í134) THEN L=37 : GOSUB1070 
720 IF At=CHRtí135) THEN L=39■GO3UB1079 
730 IF A$=CHR$(I36) THEN L=38-GOSUB1370 
740 : 

750 REM *** TRATAMIENTO DE LAS PETICIONES *** 

760 ■ 

770 L-E+X+( V-l) #48: C=DX IV»XH12S - POKE L»C : POKE L+i»C : GOiO 550 
780 

790 REM *m COMPILACION ##* 






w j 






A\í 






S 



AA A 


m, 





0/IP&3 


ñl Ordenador Personal, núm,28 





S00 ¥=0 

810 FÜR L=lT02i : POR X=0TÜ2 
820 V=¥+l-V<Y?=e 
830 FÜR C*iTG7STEP 2 
840 Q=úT¿aiX*8+C)-48 
850 IFQ<0ORQ>3 THEN C=0 
860 V<YW<YH2T< 7-0*9 
£70 NEXT C 
680 PüKE S3HY,V<Y> 

390 KEXT X,L 
900 GOTO 500 
910 ■ 

920 REM *W VERIF¡OPCION DE LR PETICION *W 
530 PRlNT :i ^mfilSDaraiEDSI^^ : EJECUCION? rr 

940 PÜKE 196,0 : WñIT LSSil^GET H$ 

950 PR¡NT :i n T 

960 RETURN 
970 ■ 

989 REÍ1 *** GENERACION DE DATAS *** 

990 FRlNT JI I3 ri 

1000 FÜR X-1TÜ7 : PR¡NT"DATA “> 

1010 FÜR Y=1TÜ9 : PRINTVCCX*1)#9+Y>"IL 
1020 NEXT ■ PRINT tl li iJ ; NEXT : PRINT 

1030 pRinra m unb teclr por favor." 

1040 GÜSÜB 540 
1050 GOTO 310 
1060 

1070 REil *** CAMBIO DE COLORES *** 

1080 C-PEEK <RB+L) RND 15 
1090 C*C+i ■ IFOÍ5 TREN C*0 
1100 PÜKE RB+L,C 

1110 PRINT'WWW^IP L*33 TREN 1150 
1120 PRINT : IF L=37 TREN 1150 
1130 PRINT:IFL=35 thEN 1150 
1140 F'RINT 

i 150 PRiNT TRB<5>jCfíOíLEFTÍÍ" ",3-LENCCf<C>>) 
1160 RETURN 
1170 ; 

i 180 REM **# INSTRUCCIONES PELIGROSAS #** 

1190 GOSUB 920 
í230 IF H*0"S r ' THEN 750 
1210 : 

1220 PÜKE 198,0 
1230 IF ñf="R 11 TKEN 190 
i240 IF RÍ*"T iJ TKEN 1550 

1250 REM *¥# SHLVRGUñPDR / PECUPERRCIÜN K? ¥** 

1260 PRINT"3" : PÜKE RB+2Í/S 
1270 INPUT NOMBRE DEL SPRITE *,N* PRINT 
1280 ¡F B¡M :F C" TKEN 1360 
1290 

1300 REil *** SALVAGUARDA *** 

1310 ÜPEN XAA,m 
1320 FÜR X=ÍTÜ63 : PRÍNT#I,YCX) NEXT 
1330 GLOSE 1 
1340 GOTO 260 
1350 ; 

1360 REM #** RECUPERACION ### 

1370 ÜPEN í,1,0,N$ 

1380 FÜR X*iT063:INPÜT#l,V<X> NEXT 
1390 GLOSE 1 
1400 : 

1410 REM *** CALCULOS TRAS CARGR *** 

1420 PRINT"MUN MOMENTO POR FAVOR" 

1 430 y =.0 

1440 FOR L = 1T031 : FQRX=0TO2 
1450 V=V+1 

1460 FOR O2TÜ0STEP 2 
1470 Q=X#3+C:P*2t(e-CJ 
1480 E=V(V) AND ÍP*3) 

1438 B'4(L i Q) *58 • D!íCL j Q-l) =58 

1500 ¡F £>0THÉH DXa,Qj=E/P+4S : Dfia,ü-l)=l)X<L-C> 
1518 NEXT C.XjL 
1520 £=1039 
1530 GOTO 260 
1540 • 

1550 REM *** TERMINA *** 

1580 FOKE AB+21;0 : POKE RB+28,0 
1578 PRINT-JOMM" 

1580 EN5 







v / 


• í ; J 

^ uJí. . __ 






“i £ «fe 


1 jNí : PRINT 



H\\s _ 


® / • <W< 




.MI 









á H 




© /ÍPS-3 


Ef Ordenador Person&f, núm, 28 


155 




¡ Diagrama 1 


128 

64 

32 

16 

8 

4 

' 2 

1 

Va/ores de cima /es 

Diseño a obtener 

Número decimal úei color 
deseado 

Valor binario del color 
Contenido binario de la 
dirección 

Valor decimal definitivo (=78) 





1 

0 

3 

2 

01 

00 

11 

10 

0 

1 

0 

0 

1 

i 

1 

0 


64 


+ 

L- _ 

8 

+ 4 

+ 2 



Para obtener este dibujo, que representa uno de los 63 octetos 
necesarios, el valor de i a DATA sord 78 


Diagrama 2 



128 

64 ! 

32 

16 

e 

4 

2 

1 

Valores decimales 

Contenido binario de la 
dirección 53276 

Número de fantasmas 

Valor decimal correspondiente 

" 1 

0 

0 

1 

0 

0 

0 

1 

7 

6 

5 

4 

3 

2 

1 

0 

128 +16 + 1 

Las instrucciones necesarias para validar el modo multicolor de 
los fantasmas n s 7, 4 y 0 es: 

POKE 53276, 145 


Cierto, los fantasmas se vuelven 
groseros... 

Por otra parte, los dos colores 
suplementarios son los mismos 
para todos los fantasmas; única¬ 
mente el color de base podrá 
variar de unos a otros, lo que 
significa que todos los fantasmas 
tendrán al menos dos colores 
comunes. 

Con un mínimo de imaginación 
los efectos posibles son extraor¬ 
dinarios a pesar de estas dos 
restricciones. 

El diagrama número 1 os 
servirá de ayuda en el caso de 
realizar la codificación a mano. 
Sin embargo, la utilización del 
programa generador os aportará 
la rapidez y comodidad necesarias 
para este pesado trabajo. 

Después de la dirección 53248 
(dirección de referencia a partir de 
la cual se calculan el resto de las 
direcciones indispensables), ocu¬ 
paremos la dirección 53276 para 
definir qué fantasmas serán mul¬ 
ticolores. 

El contenido de esta dirección 
es calculado como ya sabemos. 

Ver el diagrama número 2, 

A continuación, las direcciones 
53285 y 53286 contienen los 
valores numéricos de los colores 
suplementarios añadidos a los 
espectros y elegidos de entre los 
16 disponibles (valores 0 a 15), 

Bien entendido las direcciones 
utilizadas por los fantasmas mo¬ 
nocromáticos siguen siendo váli¬ 
das. 


La utilización del programa 
generador nos facilitará la tarea. 
El editor de fantasmas multi¬ 
colores propuesto proporciona ¡as 
facilidades necesarias para la 
aparición de espectros de buen 
aspecto; después de su introduc¬ 
ción en memoria, y a continuación 
del encantador RUN habitual, 
aparecerá a la derecha de la 
pantalla una matriz de 21 x 24 
provista de un cursor móvil en la 
parte superior. El desplazamiento 
de este cursor se hará de la forma 
habitual (teclas de desplazamien¬ 
to de cursor). 

Para encender un punto que 
forme parte de vuestro fantasma, 
pulsad los números 1, 2 ó 3 Los 
colores correspondientes a cada 
uno de estos números están 
indicados a la izquierda de la 
pantalla. Para modificarlos podéis 
utilizar las teclas de función de la 
forma siguiente: 

* F1 color de fondo, 

* F3 color suplementario núme¬ 

ro 1, 

* F5 color propio del fantasma, 

* F7 color suplementario núme¬ 

ro 2. 


Los colores aparecen y 
desaparecen a voluntad 

Cada presión sobre una de 
estas teclas, visualizará el color 
correspondiente a la izquierda de 
la pantalla. La barra espadadora 


Tabla 

Dir. 

+ 

Contenido 

53248 

O 

Coordenada x del fantasma 0 

53249 

1 

Coordenada y del fantasma 0 

53250 

2 

Coordenada x del fantasma 1 

53251 

3 

Coordenada y del fantasma 7 

53252 

4 

Coordenada x del fantasma f 

53253 

5 

Coordenada y del fantasma 2 

53254 

6 

Coordenada x del fuñí asmo 3 

53265 

7 

Coordenada y del fantasmas 

53256 

8 

Coordenada x del fantasma 4 

53257 

9 

Coordenada y de! fant asma 4 

53258 

10 

Coordenada x del fantasmas 

53259 

1 1 

Coordenada y del fantasma 5 

53260 

1 2 

Coordenada x de! fantasma 6 

53261 

13 

Coordenada y del fantasma 6 

53262 

14 

Coordenada x def fantasma 7 

53263 

15 

Coordenada v def fantasma 7 

53264 

16 

Coordenada x de mayor peso 

53269 

21 

Selección ríe los fantasmas 

53271 

[23 

Ampliación vertical 

53276 

28 

Modo multicolor 

53277 

_ , 

\29 

A mplración hor izan t al 

53280 

[32 

Color del borde de la pantalla 

53281 

"33 

Color de fondo de la pantalla 

5^285 

„ _ 

[37 

Color suplementario 1 

53286 

¡38 

Color suplementario 2 

53287 

[39 

Color del lentas me O 

53288 

40 

Color def fantasma j 

53289 

41 

Color del fantasma 2 

u3"9Q 

42 

Color del fantasma 3 

53291 

! 43 

Color del fantasma 4 

53292 

44 

Color del fantasma 5 

53293 

45 

Cofor def fantasma 6 

53294 

¡- ¿ 

\aS 

Color del fantasma 7 


os permitirá borrar un punto 
previamente encendido. Pulsando 
la tecla <= podréis ver el aspecto 
actual del fantasma en la parte 
baja de la pantalla. Las teclas H y 
V os permitirán modificar su 
tamaño. También podéis visuali¬ 
zar los sesenta y tres elementos 
de la DATA que compone vuestra 
criatura pulsando la tecla D, 

En este momento, bien toman¬ 
do nota, o pulsando STOP y 
después NEW (con la precaución 
de no borrar la pantalla) podréis 
colocar un número delante de 
cada línea DATA creada y hacer 
un programa con esta base de 
partida. 

Para crear varios fantasmas, 
podréis fríos salvando y cargando 
en casete (teclas S y C), lo que os 
permitirá conservar el trazado de 
todas vuestras criaturas inferna¬ 
les sin que ninguna se pierda en 
el más aIlá.,.□ 


Juan Pedro Lalevée 


56 


SI Ordenador Personal r núm i 28 





CBM 

64 






S TrTTTr .^ 

mmsm 


(■ HH M 



Espíritu ¿estás aquí? 


o los fantasmas del 
Commodore 64 
(3 a Parte) 


Después de los anteriores artículos aparecidos en 
el OP, ya no tendréis problemas para llevar a cabo 
la creación de espíritus (amigos) surgidos de las 
profundidades tenebrosas del Commodore 64. Su 
comportamiento al desplazarse por la pantalla y 
encontrar alguno de sus congéneres, es el tema 
del presente artículo. 


Antes de abordar la parte téc¬ 
nica del problema, preparemos el 
terreno introduciendo en memo¬ 
ria el programa de demostración, 
que está destinado a generar dos 
fantasmas reducidos a su más 
simple expresión. 

Bien entendido, ías indicacio¬ 
nes dadas en forma de REM 
xxx,— pueden ser eliminadas del 
tecleo. 

Después del RUN fatídico, apa¬ 
recen dos fantasmas ligeramente 
camuflados. Entonces puede com¬ 
probar que el fantasma de color 
negro (que es el fantasma n- 0) 
aparece delante del fantasma n e 
2, que es blanco. Si el fantasma 
n 5 1 ha sido generado y situado en 
su proximidad, aparece en Sand¬ 
wich entre los dos anteriores. 

De este fenómeno se deriva un 
teorema importante: los fantas¬ 
mas que tengan número más bajo 
aparecen siempre por encima de 
los fantasmas de número más 
elevado cuando se les super¬ 
pone . 

Esta regla fundamental le per¬ 
mitirá elegir juiciosamente los 
números de sus fantasmas, en 
función del efecto que desea obte¬ 
ner. 

En un principio nuestros fan¬ 
tasmas van a encontrarse. Des¬ 
pués de haber lanzado el progra¬ 
ma por RUN, y sin otra forma de 
proceso, teclee en modo directo: 
PRINT PEEK (53278). 

Ef ordenador expone entonces 
el valor: 5, 

A continuación, separe ios dos 
fantasmas tecleando: POKE 


53248,200, y vuelva a pedir: 
PRINT PEEK (53278). 

El valor expuesto se convierte 
en 0. No obstante, para obtener 
este valor, es posible que tenga 
que teclear una segunda vez esta 
misma línea. 

Pero antes, recurra al dia¬ 
grama 1, que le explicará, mejor 
que un largo discurso, cómo varía 
el contenido de la dirección 53278. 

Los bits que corresponden a los 
números de los fantasmas en coli¬ 
sión son puestos en 1 y conservan 
este valor, incluso si la colisión 
está terminada. Los bits vuelven a 
tomar su valor norma] de 0 en el 
momento en que se efectúa una 
lectura en la dirección 53278, 
para volver a 1 si la colisión existe 
aún. Esta dirección guarda el 
recuerdo de los encuentros inter¬ 
fantasmas, hasta que sean pues¬ 
tos en acción, Gracias a la misma, 
sabrá si ha habido encuentro 
entre ellos y reconocerá a los pro¬ 
tagonistas... 

jA mi derecha, el fantasma 

r~-- 


Stanley, y a mi izquierda, el fan¬ 
tasma Livingstone! 

Para experimentar las colisio¬ 
nes entre fantasmas y texto, borre 
la pantalla, apoyando simultánea¬ 
mente las teclas STOP y RES¬ 
TORE; después relance el progra¬ 
ma por RUN. 

Haga desaparecer a continua¬ 
ción el fantasma 0 tecleando 
en modo directo: POKE 53269,4. 

Finalmente, teniendo cuidado 
de no escribir sobre una línea de 
la pantalla ocupada en parte por el 
fantasma visible, teclee: PRINT 
PEEK (53279). 

El ordenador expone el valor 0, 

Ahora, situándose sobre una 
de las líneas ocupadas por el fan¬ 
tasma, teclee de nuevo la misma 
instrucción. El valor expuesto ha 
pasado a 4, 

Consulte ef diagrama n 5 2, que 
detalla la situación, y observe la 
similitud con el diagrama prece¬ 
dente 

En el transcurso de este expe¬ 
rimento, ha podido notar que el 
texto inscrito en la pantalla a nivel 
de un fantasma era enmascarado 
por este último. Sin embargo, es 
posible invertir esta situación y 
superponer el texto sobre ef fan¬ 
tasma, merced al contenido de la 
dirección 53275 

Antes de consultar el diagrama 
4, que contiene la clave del miste¬ 
rio, teclee otra vez en modo direc- 


10 rf£-“o¿:4£ 
FüKt ÑB+£l1.' 
PÜr t £040■ 
F ■>£ 204¿, í 
FuR Ü-0TC62 

POKE 
POKE 
POKE 
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DIAGRAMA 1: 







128 

64 

32 

16 

8 

4 

2 

1 

— Valores decimales 


0 

0 

0 

0 

0 

1 

0 

1 

— Contenido binario de la dir. 53278 


7 

6 

5 

4 

3 

2 

1 

0 

— Número de fantasmas 







4 

4- 


— Val decimal correspondiente {=5} 

Los fantasmas 0 

Y 2 han colisionado 


DIAGRA 

MA 2: 







128 

64 

32 

16 

8 

4 

2 

1 

— Valores decimales 


0 

0 

0 

0 

0 

1 

0 

0 _ 

— Contenido binario de la dir. 53279 


7 

6 

5 

4 

3 

2 

1 

0 

— Número de fantasmas 







4 



— Val décima! correspondiente (=4) 

El fantasma 2 ha colisionado con un 

elemento de la pantalla 

DIAGRA 

MA 3: 
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64 

32 

16 

8 

4 

2 

1 

— Valores decimales 


0 

1 

J 

0 

0 

0 

0 

1 

— Contenido binario de la din 53275 


7 

6 

5 

4 

3 

2 

1 

0 

— Número de fantasmas 



, 64 4 

32 






— Val decimal correspondiente f-97) 

Los fantasmas 6 t 5 y 0 pasan por detrás del testo de la pantalla 


DIAGRAMA 4: 







128 

64 

32 

16 

8 

4 

2 

1 

— Valores decimales 


0 

0 

0 

0 

0 

0 

0 

1 

— Contemdo binario de la dir. 53264 


7 

6 

5 

4 

3 

2 

1 

0 

— Número de fantasmas 









1 

— Val decimal correspondiente f-1) 


El fantasma 1 está a 

la derecha de la pantalla 


to: POKE 53275,4, el texto reapa¬ 
recerá por encima del fantasma 

2 (diagrama n e 3), 

Los desplazamientos de los 
fantasmas han sido objeto de lar¬ 
gos estudios en Gran Bretaña. En 
el caso del Commodore 64, el 
valor posible del desplazamiento 
horizontal de cualquier fantasma 
puede variar de 0 a 255, valor que 
está inscrito en la dirección de 
coordenada X del fantasma en 
cuestión. 

La pantalla del Commodore 64 
ofrece 320 posiciones posibles 
horizontal mente. Desgraciada¬ 
mente, toda tentativa de la clase; 
POKE 53248,320 se salda eviden¬ 
temente con un mensaje de 
error... ya que existe un bit de 
más, que la dirección no puede 
contener, 

Pero, tranquilícese ¡nuestros 
fantasmas no están condenados a 
frecuentar solamente ía parte 
izquierda de la pantalla! 


Ectoplasmas que 
se pasean, que 
se divierten 
desapareciendo 


Basta con situar el bit suple¬ 
mentario en la dirección 53264. 
Intentemos la experiencia; pulse 
STOP/RESTORE para limpiar la 
pantalla y relance el programa en 
memoria. 

Teclee a continuación: POKE 
53248,25., el fantasma n- 0 se 
desplaza hacia la parte extrema 
izquierda de la pantalla. 

Finalmente, desde el momento 


en que teclee: POKE 53264,1, 
este mismo fantasma podrá abor¬ 
dar sin dificultades la zona prohi¬ 
bida (diagrama 4). 

Tengo cuidado, si modifica los 
valores propuestos anteriormente 
es posible que su fantasma salga 
de la pantalla por la derecha y, por 
consiguiente, se hace invisible. 
En este caso, disminuye el valor 
dado en 53248 (coordenada X del 
fantasma). 

Para terminar, completemos ei 

programa en memoria: 

___ 


60 FÚR Q=0TO255 
65 POKE RB+AQ 
70 NEXT 

75 POKE flB+16,4 
30 FOR Q*@TO70 
85 POKE RB+4,Q 
90 NEXT 

100 POKE fiB+16/0 
105 GOTO 60 

RERBV. 

El fantasma n- 2 circulará 
entonces de izquierda a derecha 
en la pantalla 

Durante el funcionamiento del 
programa, observe la intermiten¬ 
cia del fantasma durante su paso 
por la línea-frontera, y sus aplica¬ 
ciones fugitivas hacia lugares no 
deseados. Estos defectos son debi¬ 
dos a la imperfección del BASIC, 
demasiado lento para este empleo. 
En próximo artículo veremos cómo 
paliar este inconveniente utili¬ 
zando el lenguaje máquina, con 


DIR.1 +1 

i > i i 

CONTENIDO 



¡53248 1 0 1 

CQORBENRDA X DEL F ANTAS fifi 

0 

153249 ¡ 1 1 

COORDENADA V DEL FANTFISnfi 

0 

r i i 

¡532501 21 

X 

- 


I 

153251 I 3E 

V 

- 


1 

[ \ t 

¡53252 1 4 1 

X 

- 


2 

1532531 5 

i j 1 

V 



C. 

¡53254 1 6 i 

i - í J 

X 

- 


3 

¡532551 7 ¡ 

V 

- 


3 

153256¡ S¡ 

X 

- 


4 

153257¡ 3¡ 

V 



4 

¡53258110Í 

X 

- 


5 

53253111 

V 

- 


5 

p i p 

¡532801121 

X 

- 


6 

¡53281 113 1 

V 

- 


6 

¡53262 114 1 

X 



7 

1532831151 

Y 

- 


7 

¡53264¡16 I 

PESO FUERTE DE LAS COORDENADAS 7 

! ___ [_-L. . —_ 

153269 ¡21 ¡ 

VALIDACION DE LOS FANTASNAS 

• -- 1-T-- 

¡53271 ¡23¡ 

EXPANSION VERTICAL 

DE LOS 

FftNT* 

i-[ — i- -— - - 

153275 ¡27 ¡ 

PRIORIDAD TEXTO/FflNTfiSílAS 


153276 128 i 

SELECCION DE FANT . 

MULTICOLORES 

r ■ ' r ,j t 

¡53277 129 ( 

EXPANSION HORIZONTAL DE LOS FANT 

¡53273f30 ! 

COLISION ENTRE 

"ANTASMAS 


I- 1 1 

i 53279 ¡31 \ 

COLISION TEXTO/FANTASMRS 


¡(53260132 i 

COLOR DEL BORDE 

DÉ 

LA PANTALLA 

———— i - r- 

¡532S1 133 í 

1_ i _t 

COLOR DEL FONDO 

DE 

LA FANTALLA 


i T- T" 

¡532851371 

COLOR 8 EN MODO 

MULTICOLOR 

1 1 

¡53286 138 1 

COLOR 1 EN MODO 

MULTICOLOR 

¡53287 139 1 

■ . J : 

COLOR DEL FANTASMA 

HUMERO 

0 

¡53238 140 I 




1 

i i -h 

¡53239 ¡41 1 

- 



2 

153298 142 1 

- 



3 

¡53291 ¡431. 

- 



4 

¡53292 ¡44 í 




5 

t r 

153233 145 1 

* 



6 

153294 ¡461 

1_1_L. 




7 


un programa de juego muy com¬ 
pleto que pone en práctica ele¬ 
mentos estudiados en el curso de 
los artículos precedentes 


Jean Pierre Lalevée 
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Espíritu, ¿estás 
ahí? Los fantasmas 
del Commodore 64 


Para concluir, quizás provisionalmente, nuestra revis¬ 
ta de los fantasmas errantes en el Commodore 64, les 
proponemos un programa completo que emplea la mayor 
parte de los elementos tratados en los artículos anterio¬ 
res. Por él pueden conocer algunos trucos complementa¬ 
rios indispensables. 


Aunque no nos haya seguido por 
las abruptas pendientes de la técnica, 
la memorización de nuestro programa 
le proyectará a !a naturaleza, donde 
no temerá más que una cosa: que le 
parta un rayo. 

Bajo un cielo amenazador, cubierto 
de negros cúmulos que precipitan pe¬ 
driscos destructores, debe proteger 
magníficas verduras. Para ello, sólo 
dispone de un paraguas, cuya superfi¬ 
cie es demasiado pequeña y le obliga 
a correr de acá para allá entre los 
vegetales para abrigar durante cierto 
tiempo a estas plantas indefensas. 

Para reforzar todo ello, relámpagos 
acompañados de terroríficos truenos 
desgarran el cielo con intención de 
fulminarle. Desgraciado sf no huye a 
tiempo! 

Desencadenado el torbellino de los 
elementos, no podrá evitar la brutal 
muerte de algunos. Por fortuna, re¬ 
brotan rápidamente. Pero, ¿podrá rea¬ 
lizar una buena cosecha? 


Un valiente hortelano 
defiende las lechugas 


Para que el juego sea lo más real 
posible, hemos adoptado soluciones 


técnicas relativamente complejas: el 
valiente hortelano defensor de las le¬ 
chugas, está formado por un conjun¬ 
to de varios fantasmas multicolores 
elementales yuxtapuestos, cuyo des¬ 
plazamiento se asegura mediante un 
sub-programa escrito en lenguaje má¬ 
quina. 

Es evidente, que el empleo del Ba¬ 
sic haría mucho más lento el control 
del conjunto de desplazamientos si¬ 
multáneos necesarios. 

* Los fantasmas,— E! esquema 
n.° 1 muestra una representación de 
cada fantasma elemental, acompaña¬ 
do de su número y del número del 
bloque de memoria en el que está 
memorízado el dibujo. 

* El problema de los bloques,— 
Para memorizar el dibujo de cada 

fantasma debemos emplear ocho blo¬ 
ques de memoria capaces de conte¬ 
ner 63 octetos cada uno. Sin embar¬ 
go, se plantea un problema: la organi¬ 
zación de la memoria del Commodore 
64 permite disponer de solo cuatro 
bloques sin manipulación particular 
(el bloque 11 que está de la dirección 
704 a 766 y los bloques 13, 14 y 15 
1 que ocupan la totalidad del tampón 
cassette y van de la 828 a 1022). 
Nos es preciso, por tanto, encontrar 
otros emplazamientos. La dificultad 
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principal estriba en que esos empla¬ 
zamientos deben estar completamen¬ 
te libres. En ningún caso el Basic 
debe invadirlos. Podemos soslayar 
esta dificultad modificando el apunta¬ 
dor de final de memoria y el apunta¬ 
dor de final de las cadenas (direccio- 


SUBPROGRAMA 


38 ñ 4 

R5 

r;R 


LDR 

CE 

33R6 

D 0 

33 


ENE 

38E i 

3 + dft& 

f-HÜ 

00 

□ 0 

LDR 

□ 000 

38ñB 

C3 

FF 


CMP 

ttFF 

38RD 

□ 0 

0 S 


BHE 

3SB7 

38RF 

M9 

1 F 


LDR 

1 Hr 

38B1 

8 D 

i 0 

Ü 8 

STR 

üü i 0 

3804 

4C 

!“■ ;‘ k - 

30 

Tj'tf 

38CC 

3SB7 

03 

E3 


CMP 

4E3 

38B9 

□ 0 

03 


ONE 

3SC3 

3SBB 

ñ 3 

0S 


LDR 

#08 

¡ 3SED 

8 D 

10 

DE 1 

STR 

D0 :L S 

3SC^ 

40 

ü C 

38 

JIIF 1 

39 CC 

3SC3 

r 3 

43 


CMF 

#40 

■”l IÜH C7 

DO 

05 


ENE 

38CC i 

3 SC 7 

RÜ 

í 0 

00 

LDR 

00 1 0 

B 8 lR 


yF 


ENE 

38 DS 1 

3800 

f_e: 

00 

00 

INC 

D06J0 

380F 

EE 

02 

00 

j: NC 

D 002 

3SD2 

EE 

04 

Ü 0 

j: NC 

0004 

38 D 5 

EE 

DE 

00 

INC 

0008 

3303 

EE 

0 

00 

INC 

0 □ 38 

38DB 

ñ9 

U“> 


LDR 

4C5 


30 

1 5 

00 

STR 

D015 

38E0 

60 



f. rs 


38 E I 

es 

33 


CMP 

439 

38E3 

□ 0 

5 r 


BNE 

331C 

3 se: 5 

HD 

00 

00 

LDR 

£3900 

3 SE 8 

D i“i 

00 


BNE 

3SF2 

38Efi 

Hy 

00 


LDR 

me 

38Ff: 

SD 

10 

□ 0 

STR 

0810 

3SEF 

40 

07 

39 

JMP 

3907 

38F2 

C9 

E 3 


CM P 

#E3 

3SF4 

D 6 

¡T-i O 


BNE 

38 FE 

3 S F 8 

R3 

33 


LDR 

#00 

3SFS 

80 

10 

08 

i o 

□0 ;1 0 

38FB 

4L 

0 ? 

39 

JMP 

3907 

38FE 

C9 

01 


CMP 

#0 1 

380 3 

D 0 

r:¡ \ir 

14 ..i 


ONE 

3907 

3902 

ñD 

10 

D 0 

LDR 

D 0 18 

3305 

F 0 

0F 


BEÜ 

391 h 

390? 

CE 

00 

00 

DEC 

0000 

398R 

CE 

02 

08 

DEC 

0002 

3900 

CE 

04 

00 

DEC 

0004 1 

33 X 3 

CE 

06 

DO 

DEC 

0006 

39 i 3 

CE 

Fl 0 

00 

DEC 

0008 

39 i 6 

R9 

03 


LDR 

#C9 

33 i S 

8D 

15 

□ 0 

STR 

0015 

39 1 B 

60 



RTS 


33IC 

H y 

03 


LDR 

#03 

39 i E 

SD 

i 5 

00 

STR 

0015 

3931 

E0 



RTS 


3922 

R2 

10 


í_D7 

41 u 

3924 

20 

R4 

38 

JSR 

38R4 

3327 

CH 



des; 


33 23 

00 

FR 


B\3E 

332 4 

23 2 R 

30 



RTS 


v 





J 


10 REM ENSALRDAS... 

11 REM <C> J.P. LALEVES V EL O.P. 

15 REM V.DEF 12.04,33 

£0 ; 

25 POKE 56,55FOKE 52,55 : REM POKE 808,239 
30 

35 REP1 VARIADLES ■—— - 

40 rK=14S2é-RE« DIRECCION DE SUBPRGGRAMABE DESPLAZAMIENTO 

45 J*54£72 : REM DIRECCION DE COLOR 

50 C=53280 ■ F=5328i '• REDI RECUADRQ/FGNDO 

55 NO=50:REM NUMERO DE OOTRS 

60 SC=0 : SM=3 ; REM TANTEO DEL JUGADOR S MAXIMO 

65 SC*=”»3TANTE0: " :Gf="a3RBNIZÜS • ” 

75 REM V=VELOCÍEAD DEL JUEGO 

80 DEFFNX(SC)=RES(SC>0)#SC : REM CALCULO DE LA FUNTURCION 

99 

100 GOSUB 1000-REM PRESENTACION 

105 00SUB 1100 : REM RELLENADO DE BLOQUES-FANTASMA 
110 GOSUB 1700 ; REM ¡NICIALI2ACI0N DE FANTASMAS 
115 GOSUB 2000'REM IMPLANTACION DEL SUBPROGRAMA 
120 : 

140 REM JUGADOR PREPARADO ? - 

145 FRINTTABW'S PULSA UNA TECLA S".R=5 

150 GETRÍ-IFEITHEN165 

155 R=R+4-<!R<10J : ¡FR>16THENR=5 

160 FORG S =0TO28 : F0KE56261+Q,R : NEXT r GOTO 150 

165 PRINT" SSroSWWS'', ‘‘III SS 0 • *■ RAF 3 DO 

170 PRINT” mi £S 5 _ *■ LENTO ÍTPRINT, 

175 INPUT" TU ELECCION 0 lililí" 3 V 
130 IF V<0 OR V>5 THEN PRINT'.T, : G0T0175 
135 : 

190 REM PREPARACION BE LA PANTALLA - 

195 PRINT”T,CHRÍÍ142):POKEF,15-PDKE54296,15:P0KES1,0 
200 : 

210 REM TRAZADO DEL SUELO 

215 EX*1934: FQRO0TO39 : POKEEK+Q, 160 ■ FÜKEEX+J+Q,3 : NEXT 

219 : 

220 REM LINEA DEL HORIZONTE-- -- - 

229 ' 

230 REM COLOCACION DE LAS LECHUGAS - 

235 E?í*1944'Kl=95 M2=105 

248 H=2+2*RND<0) ; IFEX+H}19S3THEN250 

245 POKEEX+H-1 •MI POKEEX+H-l+J,5: POKEEX+H, M2 : POKEE:-i+H+J, 5 : E2=EX+H : 3OTO240 

249 : 

250 REM DISEÑO DE LAS NUBES- 

255 FORQ 3 íTO0:PRINT"S ",'NEXT : PRINT”!" 

260 EX=1164 ; M 1=1222 1 (12*1223 
265 L*Í8 : X*0 

270 X=X+1 - BL*INT (£JÍ+2#RNB 10 >) 

275 IFX=IANDDL>M1THENDL=M1 

280 F-INT<DL+<L-2)#RND<0» - ¡FF*DLTHENF=r+l 

285 IFX=1THENH=F+1 : ¡FF>M2THENF=M£ 

290 L*F-DL-P0KEDL,95-P0KEDL+J,12 

295 IFL>1THENFORQ*BL+1T0F-1'POKEQ,160:POKEJ+Q,12:NEXT 

300 POKEF,105 POKEFFF,12 

305 EX=DL + 41 : IFL>4THEN270 

310 EX=H:IFEX<M2THEN265 

315 PRINTSCf" 0 " 

320 - 

325 POKE SI,211 : POK£ S4,0 
330 : 

345 R^14()i**#*#**###*##*****DESARR0LL0 DEL JUEOO*****#***###*#*****# 

350 AX-1065 : FORR“1TONG■P0KES5,PEEKCS51RND254 
355 E5i*flX+38#RND (0 5 ; PR INT “I"TAB < 28)G$;NG-R 0 " 

360 SK»160:CX-12:FCRG-9T021 
365 POKEEX, S5Í : POKEEX+J, CX 

370 EX-EH+40:SX-PEEKCEX)'CX=PEEK(EX+J) ; POKEEX,42:POKEEX+J,12 
372 IFVTHENFORP=0TOVI5 : NEXTP 
375 SVSDX 

380 ÍFPEEKíS5)ANDlTNEMPOKEEX,SX : POKEEK+J,K GOSUB905 : SC=SC+10-GOTO420 

385 NEXTQ : POKEEÍi, 180 : POKEEX+J, 1 

390 SC*SC-10 : IFSX*32THEN410 

395 IFSJM00ORS/Í-H1THENPOKEEX, 111-0010418 

409 SC”SC-13 ; IFSX=95THENP0KEEX+1,111 ; P0KEEX+J+1,5 : GOTG410 
405 PCKEEX-i,111 ; POKEEX+J-1,S 

410 GOSUB 935■REM SONIDO 
415 ■ 

420 SC-FNX(SC) :PRINTSCí;SC"ll " 

425 

450 REM COMIENZO DE LA TORMENTA 
455 IF RND<0)>,9 THEH GOSUB S00 
460 - 

465 REM REPOSICION BE UNA LECHUGA - 

470 E=1944+37#FtNDí0) 
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475 2=Pt£K(E) ; Z1*P£EK(E+15 

480 IFÍZ=95ORZ=I05> GR <ZI=95ORZ1=105>THEN490 

485 POKEE,95■POKEE+1-105:PQKEE+J,5■PÜKEE+J+l- 5 : SÍ=3C+Z0 

490 SC=FNXÍSCÍ'PRINT5CJ;SC"li " 

495 NEXTR 
497 • 

500 REtl ****** ***sm*#**FIN I¡E LA PARTIDA ********************** 

505 ¡FSOSt1THEMSt1=SC 

510 PRINT'MfiHBKGS'' , "MEJOR TAUTEO ■ S"3M"li ,r 

515 FOKE198j 0 ; PR¡NTMísI OTRA TORMENTA (S/N>‘?M"; : P0KESB4,0 

520 GETRÍ 1 IFRí~"$"TH£NSC=0 : POKE204 J 1:GOTO!9@ 

525 1F RtO"N" THEN520 
530 PRINT“3" 'POKE 54236-0 
540 POKE 308,237 
545 END 

599 : 

600 REM RELRPIFñGO- 

605 GOSUB800 : IFRND(0 X.5THEN660 

610 V=50:X=100+155*RNÍK0>■POKES+10,X : PGKES+11,V 

615 Z-2*-;RNQCe>C.5) + l 

620 FORW=0TO10'POKES2,PEEKÍS2Í+32■V=V+15 

625 X»X+Z#<3+3*RND<03)■IFX<0ORX>255THENZ=-Z:X«X+Z#6:GQTOS35 

638 POKES+10-X POKES+U.V 

635 POKES2,PEE K < S 2 > AND223 

645 SVSDX : POKESI,FÉEKCS1>+32 

650 lFy>5THENK*PEEKíS4):IF<KRHE1>THEN700 

651 NEXT 

655 POKESI,FEEK(Si>flND223 
660 P0KES4,PEEK(S4;PND31•P0KES5,0 
665 RETÜRN 
670 : 

700 REM EL JARDIN ES FU Lili NABO- 

705 SC*SC-100 : PRINTSC*;FHX(SC)i"II " 

710 POKESI,211 POKES4,0 

715 FORQ-0TQl : POKES+39,Q:POKE3--40,Q:POKES+43,3:POKES+37,3■POKES+38,Q 
720 POKE54277.0 P0KE54278,240 

725 POKE54273«51 : POKE54272,97 : POKE54276,17TORP=1TO50'NEXTF 
730 POKES+39,4 PCKES+40,6■POKES+43,6■POKES+37,3:POKES+38,1 
735 POKE54273,25:POKE54272,177 ■ POKE54276,1?'FORP+1TO50:NEiíTP 
740 NEXTQ : GOTO960 
750 ■ 

900 REK TRUENO - 

905 POKE54277,190■POKE5427B, 248¡P0KE54276j129 
810 FGRQ*28T059STEP1.5 1 P0KE54296,2+11*RNDÍ0> 

815 P0KE54273,61 ; FCKE54272,126 

820 SVSB7; : NEXT3 

825 F0RC=í5T053TEP-2 

830 POKE54296,0'P0KE54277,15 : P0KE54273,136 

835 P0KE54273,40 : FCKE54272,200 : PQKE54276,129 

846 SVSB^. ■ HEX j ü 

S45 F0KE5429S,15 : 3070363 

S5G : 

922 REn RüíBC 1--- 

925 PQKE54277>3 : FÚKE54£73j248 

918 P0KE54573 .■ 34 = P0KE54272,75= PQKE5427S, 1?-0070553 
91 5 - 

936 REM RüijjC 2 —““—*■ 

935 PQKE54277, 3 : FQKE5427S7 246 

942 PÜKE54273,54 ■ PGKE54272.■ 75 - P0KE54276,17 

952 REn IN7ERRÜFCIG BEi_ SONIDO- 

?55 FCPS=iT025 1 NEXT 

962 FCKE54275,0■P0KE54277,3:F0KE54272,O 
955 RETLíRiN 
939 - 

1222 REn PRESENTACION BEL JUE33--- 

1305 POKE C,S : FCKE F,3 

1310 PRINT^CHRÍCH) feíUTA' £5* * M 

Í015 FRINT !1 íííi El CIElC 3c. CCDRE,** 

1320 PP¡N7 :! jE AYUDA AL PEQUEÑO hGRTELANG 3 PROTEGE? SUS !_ECKUGA3.'' 

1025 PRlNT ,; Sj PULSA = r ‘ 

1333 PRINTTRB(8> :| 3SEIi *■ m PARA IR n «IZQUIEREfi" 

1035 PRINTTAEÍS? S0IÍ DEL 51 FRRA IR ñ ¡¡DERECHA" 

1046 PRINTTAr<S)' 

1045 RETÜRN 
1056 : 

1103 REn SLOQUES GRAFICOS BE S FRNTASMRS 
1165 REM PRRfiCL'RS=FñHTnoi1R 3 ****###»'** 

UÍ3 R?i=i40S0 ; F0RQ-3T032 ; POKEfSX+S.- 3 - K£>-T 
U15 FORQ=33TOS2: RERíFI-i = FGKEF^Q, F'i -NEnT 
1123 PÜKE20407220 j GOTO1203 

1125 DATfi 07167 0,3.-13^,1,-255,12S 7,255.-224. 15, 255,243. 31. 25" 

1133 DATA 24?-63.255,252,127..255., 254 255, 2557 255. 170, i??,S5 
1135 ■ 

1200 REn HORTELANO INMOVIL - FBHTflSMR 1 



nes 55/56 y 51/52). De tal modo, 
podemos liberar al final del Basic un 
espacio suficiente. 


Basic 

m 

Sistema y bloques 

1 1. 13. 14 y 15 

Basic 

í*l 

Programa, tablas y 
cadenas 

Libre 

Bloques 220 a 225 
Subprogramas be desplaza¬ 
mientos 


Por razones prácticas, hemos deci¬ 
dido emplear los bloques 220 a 225 
(direcciones 14080 a 14464} y con¬ 
servar el uso de los bloques 1 3 y 1 4. 
El subprograma de desplazamiento 
de los fantasmas comienza en la di¬ 
rección 14500. 

Por supuesto, se hubiera podido 
adoptar una solución diferente, pero 
la que proponemos es eficaz y puede 
aplicarse en numerosos casos. 

• El problema de los desplaza¬ 
mientos. — Los aficionados al len¬ 
guaje máquina encontrarán un pro¬ 
grama sencillo, que cumple perfecta¬ 
mente su cometido. Pueden hacerse 
algunas modificaciones pequeñas 
para emplear, por ejemplo, una mane¬ 
cilla de juego en vez de las teclas. 

• Análisis del programa. — Línea 
25: la modificación de los apuntado¬ 
res del final de Basic y de final de ca¬ 
denas libera un espacio, disponible 
para nuestros bloques de fantasmas 
numéricos y el subprograma de des¬ 
plazamientos. 

La dirección 808 permite neutrali¬ 
zar la pulsación de la tecla STOP para 
que una falsa maniobra del jugador 
no pueda perturbar el desarrollo nor¬ 
mal del juego. Se puede suprimir el 
REM que precede a POKE en esta di¬ 
rección cuando el funcionamiento del 
programa esté verificado. 
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1285 flX=14;44 : FORG=0TG6£'REPTFX : PQKcflíí+S • FX : HtXT 
1218 "0X22341221 : 3OTC1330 

1215 DATA 0,0,1,8,0,1,3,3,i,0,3,1,3,54,I,3,116,i,3,232,1,3,43, i 
1223 DATA 42,173,171,173, ¿73,163, ÍS2. 176, 1,162,173,5,1í,£24.-3,2,173,3 
1225 DATA 1,85,3,1,05,8,1,35,3, i,63.-3,1.-53, 3,1,6?,3- i, ^?. 3 
1230 - 


1338 R£fl HORTELANO 


Dü 3 Lfi DERECHA - FfiNTRSMP 


1305 R'v=i4E8S ■ FQRa^TOfí ^EfiDrX^OKfcAX+SiFX SE T 
1318 POKE2042,222 : OTO 1433 

1315 DflTfl 3,0,1,3,0,¿,0,0,1,1,60,1,1,246,1,3,243,1,6,132,1,42,17S,171 
1328 DflTfl 42,170,163,162,168,1 -1S2,168,5,162,158,3,162,163,3,241,84,0 
1325 DRTR 1,35,64;1,65,34,1,64,40,16?,64,43,153,64,4e, 128,0,40,126,3,42 
1330 : 

1430 REM HORTELANO CORRIENDO fl LA IZQUIERDA - FANTASMA 3 4#*### 

1405 A8«l 4272 ; FORQ*OTQ62 : REATFX : PCKEH7.4E, FX: NEXT 
1410 FCKE£043,223 : GOTG1500 

1415 DATA 64,0,0,64,0,0,64,0,0,64,5,64,64,15,64,64,15,192,64,3,0,234 
1420 DRTR 170,163,106,170,166,64,42,138,80,42,138,0,42,132,0,42,136,S 
1425 DfiTfl 21,79,21,85,64,21.-85,64,20,1,64,40,1,136,40,1,106,48,0,2,163,0,2 
1430 : 

1500 REM FIES DEL HORTELANO = FANTASMA 4 
1535 fi/í* 14336: FORQ=0TO47: FCKEñX+3, Z ■ NEXT 
1510 F0RQ=4STG52 ■ REFIDFX: POKEflX+B,FX ^NEXT 
1515 POKE2044,224 : GOTO1S00 

1520 DfiTR 3,207,0,3,207,0,3,207,3,3,207,8,15,237,192 
1525 : 

1600 REM RELRMPRGO = FANTASMA 5 

1635 flü=14430 FORQ = 0TO6£; RERBFX : PGKEñX+Q, FX ■ NEXT 

1618 PGKE2045,225 : GOTO1630 

1615 DfiTfl 0,24,0,0,24,0,0,40,0,3,200,0,2,12,0,3,33,0,0,99,192,15,12c,lia 
162B DfiTR 25,3,16,49,8,28,33,96,103,57,193,193,=, 129,3,8,193,t 
1625 DfiTfl 56,33,1,72,25,129,16,8,31,32,6,17,16,24,19,6,16,50.-0,48,34 
1627 : 

1630 REM AR30L NUMERO 1 * FANTASMA 6 S##**###################### 

1635 *i-832: F0R3=8T062 - READFX - POKEflX+G, FX - NEXT 
1640 PÜKE204S , i 3 1 G0TC1665 

1645 DfiTfl 2,2,38,137,137,26,108.-100,14?, 153,16.-64,1,144,72,160,72,100 
1650 DflTfl ¡52,70,80,6,73,8,1.-181,32,6,84,16,6,28,104,1,21,28,8,55 
1655 DflTfl 0,0,20,8.-8,28,0,0,28.-0,0,£0,0,0,23,0,8,20.-0,0,21,0,8,So,8 
1657 ■ 

1660 REM ARDOL NUMERO 2 <= FANTASMA 7 

1665 flX=895 - FCRQ=0TO6£ : READFX ; POKERK+S, FX - NEXT 

1670 POKE2047,14 : RETÜRN 

1675 DfiTfl 32,32,36,24,144,16,6,72.26,145,6,5,55,65,144. 0,96,54,8,24,16 
1680 DfiTfl 34,70,74,25,5,5,4,5,16,8,143,64,0,85,-0,&, 5,0,8. 5,8,0,5,3 
1SS5 DfiTfl 0,5,0,0,5,0,0,5,0,0,5,0,0,5,0,0,5,64 
1598 

1700 REM INICIFUZflCION DE FANTASMAS 
1705 S=5324S 

i710 Sl«S*21 ; P0K£Sl,2il : REN VALIDACION DE LOS NUM. S1457 

1715 S£“S+23 : P0KÉS2,30 ; REM EXPANSION V TE LOS NU". 1234 

1728 33-8*29:P0KES3,33-REM EXPANSION X DE LOS NUM. 05 

¡1725 S4-S+30-REM COLISION ENTRE FflNTRSKSS 
1730 S5-S*3Í : REíí COLISION ENTRE i-nHTñSMflS * FONDO 
1735 FCKES+23,286 : REMMODO MULT¿COLOREADO DE LOS NUM. 23457 
1740 P0KES + 37,6 ; REM COLOR DEL PANTALON 
1745 P0KES+3S, i : REil COLOR. DEL ROSTRO 
1750 P0KES+39,4-REM COLOR DEL FñRfiOUflS 
1755 FOR3=48TÜ43 : FOKES-O,5 : NEXT 
1760 POKES+44,1■REM COLOR BEL TRUENO 
1765 PC¡<E5+45,5: FOKES+46,5 : REM COLOR TE LO? RRDOi.ES 
1770 X=154 V=178-REM POSICION DE BASE TE LCS FANTASMAS 
1775 PCKES, X ■ POKES+1,- V 
1730 POKES+21X : FOKES+3,V+22 
1765 PCKES+4,X : P0KE3+3,V+22 
1798 POKES+6, X+22 : PONES- 1 ?, V+22 
1795 PQKES+8,X : P0KESt9,V+31 
1300 P0KES^12,38F0KES+-3,197 
!ÍS65 P0KES+l4,98-?GKES+i5,¡94 
1810 RETURN 
1S15 - 

2088 REM SUEPROGRflMflS DE DESPLAZAMIENTOS < IMPLANTACION *38A4 “14538J 
2003 n» 14500 - FOR2=0TÜ134 ; READFX : FGKEBX+3,FX - NEXT • RETURN 
£@i8 DfiTR 165,233,208,57,173,0,208,201.253,233,5,169,31,141,16,28c, ,'6. ¿^4 
2015 DATA 56,281,233.-203,3,15?,?.-141,16,238,75,204,56 - 261,64,233, 5,173 
2820 DfiTR 16,208,288,15,238,6,283,233,2,23S,23S,4,286,233,6,203,236,3 
2325 DATA 288,169,197,141,21,208,96,281.57,208,35,173,8,£08,288,8,169,S 
£038 DATA 141,16,208,76,7,57,281,£33,208,8,169,8,141,16.-203,76-7,-57,201 
2035 DfiTfl 1,208,5,173,16,£3$,240,15,286,0,208,£36,2,203,206,4,208,236,6 
2040 DflTfl 20S,286,3,235,169,231,141,21,238,96,169,211,141,21,288,36.-162 
2845 DfiTfl 16,32,164,56,232,283,253-96 
2050 END 



Lineas 35 a 80: lista de las varia¬ 
bles principales. NG representa el nú¬ 
mero de pedriscos en una partida. Se 
puede modificar su valor para alargar 
o acortar las partidas. 

¿Qué sucede cuando el 
pedrisco encuentra un 
paraguas? 

Líneas 100 a 115: llamada a los 
cuatro subprogramas de iniciación 
(presentación de juego, relleno de los 
bloques de fantasmas para el princi¬ 
pio de partida e implantación en me¬ 
moria del subprograma de desplaza¬ 
mientos)- 

Líneas 140 a 180: espera de la or¬ 
den de salida del jugador. Las líneas 
115 y 160 permiten una animación 
coloreada de la pantalla mientras el 
jugador no está dispuesto. La veloci¬ 
dad del juego, y por tanto, su dificul¬ 
tad, se introduce en memoria en la 
variable V, 

Líneas 190 a 325: aparición suce¬ 
siva de todos los elementos en la 
pantalla, las verduras se colocan alea¬ 
toriamente en el suelo y las nubes se 
colocan igualmente en la parte supe¬ 
rior de la pantalla. 

Líneas 345 a 418: esta es la parte 
fundamental del programa, La colum¬ 
na de caída de cada granizo se elige 
al azar. Antes de que aparezca un 
granizo, se memoriza el contenido de 
la casilla que va a ocupar en la panta¬ 
lla (en S% y C%), para volver a su es¬ 
tado antersor tras el paso del granizo 
(líneas 365 y 370), La línea 327 ase¬ 
gura la disminución de la velocidad 
en función del nivel elegido por el ju¬ 
gador. La detección del posible con¬ 
tacto entre el paraguas fantasma n.° 
1 y el granizo se asegura por medio 


162 


El Ordenador Personal , núm i 28 




Esquema n.° 2 


Fantasma n.° 4 r bfoque 
224 , expansión Y, 
monocofor. 


Fantasma n* 6, bloque 
13, multicolor. 





Fantasma n.° 5, bloque 
225, expansión X 
permanente . monocofor. 


Fantasma 7 t bloque 14 
multicolor ; 
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de un enmascaramiento lógico en la 
línea 380. Si ei granizo alcanza el 
suelo sin colisionar con el paraguas, 
eventualmente puede aplastar una 
verdura y su dibujo se modifica en la 
pantalla. Las líneas 395 a 405 permi¬ 
ten amontonar la nieve si llega el 
caso. El choque del granizo con el pa¬ 
raguas o con el suelo se acompaña 
con un sonido musical asegurado por 
dos subprogramas, llamados según e! 
caso. Efectuada la actualización del 
marcador, el programa decide aleato¬ 
riamente si debe resonar el estruendo 
siniestro del trueno (línea 455) tras lo 
que examina el eventual rebrote de 
una verdura. 

Líneas 500 a 599: final de partida. 
Se memoriza y presenta la mejor pun¬ 
tuación y se propone una nueva parti¬ 
da. 

Líneas 600 a 655: resuena un true¬ 
no. Puede estar segido de un relám¬ 
pago, cuyo emplazamiento en la pan¬ 
talla se determina aleatoriamente y 
sigue un trayecto sinuoso. Su des¬ 
censo rápido hacia el suelo está 
acompañado por una sucesión de ex¬ 
pansiones y contracciones del fanta- 
sama, haciendo su aspecto más realista. 
La llamada al subprograma de despla¬ 
zamiento (línea 645) permite huir al 
hortelano. La línea 650 detecta la co¬ 
lisión posible entre uno de los fantas¬ 


mas (el hortelano o el relámpago). Si 
el hortelano no ha sido fulminado, el 
programa prosigue normalmente por 
una simple vuelta al programa princi¬ 
pal. 


Epitafio por un pobre 
hortelano fulminado 


Líneas 700 a 740: si el hortelano 
ha sido alcanzado, el tanteo dismi¬ 
nuye eren puntos; los fantasmas par¬ 
padean varias veces cambiando de 
color y suena una música. 



Líneas 800 a 965: contienen los 
tres subprogramas musicales em¬ 
pleados frecuentemente. 

Líneas 1 1 00 a 1 685: este subpro¬ 
grama se divide en ocho partes igua¬ 
les para cada uno de los fantasmas. 

Los DATA contienen el dibujo digi¬ 
talizado, que se ubica en un adecuado 
bloque de memoria. 

Líneas 1700 a 1810: característi¬ 
cas de los fantasmas (tamaño, colo¬ 
res, situación al principio de la parti¬ 
da, etc.). 

Líneas 2000 a 2045: el subprogra¬ 
ma de desplazamientos tiene 1 35 oc¬ 
tetos colocados a partir de la direc¬ 
ción 14500, o sea 38A4 en hexade- 
cimal, Vigile que no se produzca nin¬ 
guna equivocación. 

Antes de lanzar el programa, efec¬ 
túe una salvaguarda en banda o dis- 
quette. 

Un error cometido en la transcrip¬ 
ción, en especial en el subprograma 
de desplazamientos, le podría ocasio¬ 
nar la pérdida de control de su máqui¬ 
na. 

En este caso, solamente un RESET 
seguido de una nueva impresión de 
este largo programa le permitiría dis¬ 
poner de él de nuevo 


Juan Pedro Lajeyée 
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Medidor de velocidad 

de cassette 
para Atom 


Si alguna vez estuviste tratando de introducir un 
programa desde una cassette prestada sin con¬ 
seguirlo, estas notas te interesan. 


Uno de ios problemas con que se 
encuentra el iniciado en los microorde¬ 
nadores caseros es que no dispone de 
minifíoppy para almacenar programas 
y ha de asistirse del cassette en el in¬ 
tercambio de cintas con otros usuarios. 

Normafmente en sistemas de bajo 
precio, ai diferir la velocidad de los 
grabadores y también af haber diferen- 
cías en la altura de la cabeza de graba¬ 
ción, puede llegar a resultar enojoso el 
intercambio de cintas entre usuarios. 

Respecto af segundo problema mul¬ 
titud de grabadores pequeños, Sanyo u 
otros, llevan un torniflo que permite 
elevar o bajar la cabeza y por medio de 
un medidor ó simplemente un auricu¬ 
lar podremos obtener un óptimo en 
cuanto al volumen de la señal. 

Respecto al primer problema de ve¬ 
locidad de la cinta es lo que en éstas 
líneas trataremos de resolver por me¬ 
dio de un programa que nos medirá la 
frecuencia de la portadora de FSK que 
en el caso del ACORN ATOM es de 
2.400 hz ya sea para transmitir a 300 
bd ó 1200 bd que es el máximo de ve¬ 


locidad posible con 2*400 hz de fre¬ 
cuencia base. 

Cuando en el ACORN ATOM de¬ 
seamos salvar algún programa normal¬ 
mente hacemos SAVE "nombre fiche¬ 
ro", después damos RETURN y vemos 
el mensaje RECORD TAPE, pues bien 
en este momento y hasta que volvamos 
a putsar RETURN el microordenador 
está enviando al cassette el tono de 
2400 hz que podemos estar grabando 
durante un espacio de tiempo hasta 
que al dar RETURN de nuevo comien¬ 
za a enviar los datos a la cinta. Es pre¬ 
cisamente esa grabación de 2400 hz la 
que eí siguiente programa va a medir 
para darnos en la reproducción su va¬ 
lor y si la diferencia obtenida es supe¬ 
rior al ± 5°/o hemos de suponer que 
no vamos a recuperar el fichero. 

Para superar este problema hemos 
de regular la velocidad del grabador/re¬ 
productor por medio de un potenció¬ 
metro más o menos accesible que sue¬ 
len llevar, hasta el valor deseado 2,400 
hz. 


Para su funcionamiento después de 
la carga no tenemos más que efectuar 
RUN y de esta forma queda a la espera 
de que le entre la seña! desde la cinta 
para monitorizar de que frecuencia es. 

Para su parada hacemos BRK y des¬ 
pués con OLD lo recuperaremos de 
nuevo. 


DESCRIPCION 

DEL 

PROGRAMA 


Según podemos ver por el esquema 
de ACORN ATOM y por el manual de 
BASIC en su página 194, el microjrde- 
nador dispone de un CJ. 8265 que es 
un P.P.LA. (Programadle Peripheral In- 
terface Adapter) con el cual gestiona el 
teclado y la entrada/salida al cassette. 

Este circuito integrado dispone de 
tres puertas A B C y en el bit 5 de este 
último (llamado ? # B 0 0 2 5 en el es¬ 
quema de flujo) es por donde recibe la 
entreada de audio del cassette, similar¬ 
mente por el bit 7 (? # B 0 0 2 7 ) la 
P.PJ.A. recoge una señal de V,D.G, 
(Video Generador Dísplay CJ. 6847} 
que es el Flyback (FS)« Esta señal da 
un impulso negativo de 2'5 mseg cada 
vez que el haz electrónico del monitor 
de vídeo pasa de la última línea del 
cuadro a la primera del siguiente cua¬ 
dro, mientras que el período de esta 
señal al ser la frecuencia de cuadro pa¬ 
ra el sistema NTSC de 60 hz o sea tie¬ 
ne un período de 16'6 mseg. 
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|N0 

?R=?R+1 

- | -I 

<?r=£>no 

_ |si 

?» 83 a? *83+1 
(SALIDA^ 





S L n 

1 REM** 



2REM# 

MEDIDÜR VEL.CASSETTE* 


3REMT 

AUTOR F.GUTIERREZ # 


4REM* 

COPYRIGHT EL AUTOR * 


5REM* 

Y EL ORDENADOR PER * 


6re m. 

SONAL T 


7REM** 



SDIMKK 

4 


9 F.J~9 

T04KK J=T „ N. 


10M*#80 
UP.Í2I 

¡ 1 , k \ 0 ; R8 ,:5 | H 0 0 ¿ 


20 F.J«0TO1 


30DIMP- 

40C 

i. 


50:KK1 

LOA N 


60 

BPL KK 1 


70:KK2 

JSR KK0 


80 

LOA N 


90 

BMI KK2 


00 :KK 3 

JSR KKO 


110 

LOA N 


i orí 

BPL KK3 




30 

DEC M 


40 

ENE KK2 


150 

RTS 


?00\X\RUTIHR CUENTA FLANCOS 

C 

210 :KK 0 

LOA N 

i- 

52® 

AND @#20 


530 

CMP G 

í! 

240 

BEQ KK® 

.• 

ü 

•> 50 

STB Q 


560 

INC R 

.* 

i! 

270 

BNE KK4 

¡¡ 

280 

INC R+l 

i' 

290:KK4 

RTS 


kJ !¡ J . Jl 

31SN.;P. 

$ 6 .¡DO !R *0 

■* 

320?M*30 

jLINKKKl 

i. 

330IF !R 

>2412 OR !R<2382 Q- 35 


340P-"FR 

ECUENCIA-" ! R " Hz ,,# ;U 


350P." 

f ir" 1 ^ i"' 1 i í Ti r i 11 


Siguiendo el esquema de flujo de 
la figura 1 vemos que ? # B 0 0 5 (t> = 
?#B00 2 s (t—1) significa que el bit 
de 5 de la dirección? # 8 0 0 2 es igual 
en el ciclo actual t que en el anterior 
t- 1, 

La rutina KK0 cuenta flancos de la 
señal de audio y así vemos comq_el 
programa espera el primer flyback FS 
para comenzar la cuenta sobre ?Py? 
(R + 1). Hace el recuento con FS = 0 
y después con FS — t repitiendo el 
proceso 30 veces dando después el re¬ 


sultado en el monitor de video (un 
período tiene 2 flancos)* 

Como el programa está dirigido a 
usuarios de! ATOM el di recelonamien- 
to indirecto está expresado por ? para 
byte y ! para palabra (4 bytes) en la 
FIG.l. siendo # el signo que indica 
hexadecímal y KK0, * * . KK4 son eti¬ 
quetas. 

Confío que esta rutina os evite per’ 
didas de tiempo en el futuro. 

F. Gutiérrez. 
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programación 


NOTA PARA EL ARTICULO DE 
ALTA RESOLUCION ZX81 

El objeto de este artículo es especial¬ 
mente didáctico , aunque esperamos que 
como programa sea de interés para mu* 
chos usuarios del ZX8U 

Su con fecdón se realizó en Diciem¬ 
bre de! año pasado , posteriormente se 
han mejorado algunos aspectos. Un pro¬ 
grama de este tipo pero más acabado J 
incfu yendo represen tac ion es tridimensio - 
nales. Se acaba de comercializar reden te 
mente en Inglaterra * 


Programa 

para alta 

resolución 
en el ZX8I 


La instrucción PLOT permite realizar gráficas 
con el ZX81 en la pantalla del televisor, con una 
resolución de 64X44 puntos "cuadrados", cada 
uno de los cuales tiene el grosor de cuatro líneas de 
barrido. El programa que se propone en el presente 
artículo permite reducir el grosor de los puntos al 
de una línea de barrido, incrementando la resolu¬ 
ción a 192X178 puntos. 


Ei proceso de 
visualización (1) 

La imagen en un televisor se forma 
mediante un punto luminoso de inten¬ 
sidad variable que recorre rápidamente 
la pantalla trazando líneas horizonta¬ 
les de Izquierda a derecha y de arriba a 
abajo. Unos impulsos especiales de sin¬ 
cronismo se encargan de hacer regresar 
el punto luminoso a ía izquierda des¬ 
pués del trazado de cada línea, y de lle¬ 
varlo a la parte superior cuando se ha 
completado un cuadro. 

El proceso de visualización en el ZX 
81 consta de tres etapas. En la primera 
se generan las líneas en blanco del mar¬ 
gen superior de la pantalla. En la se¬ 
gunda se trazan las líneas correspon¬ 
dientes a la zona donde aparece la ima¬ 
gen del texto. En la tercera se generan 
las líneas blancas del margen inferior. 
Estas operaciones son realizadas por 
las rutinas de la ROM encargadas de es¬ 
ta tarea. Cuando el ordenador trabaja 
en modo SLQW, las rutinas de visual i- 

{1} Puede encontrarse una detallada explica¬ 
ción de/ proceso de visualización de/ ZX81 
en el libro de Mike Lord: "The Explores 
Guide to the ZX81" {Timedata}. 


zacíón entran en acción mediante in¬ 
terrupciones periódicas. 

Cada carácter se visualiza en panta¬ 
lla disponiendo pautas de puntos en 
una cuadrícula de 8X8, de modo que 


cada fila de caracteres exige el trazado 
de 8 líneas (fig. 1). 

Las pautas de puntos que compo¬ 
nen cada carácter se encuentran en el 
generador de caracteres al final de la 
ROM, entre las posiciones 1EÜQ h y 


IFFFh, codificadas en la forma que se 
muestra en la figura 2. Cada carácter se 
divide en 8 rebanadas horizontales, ca¬ 
da una de las cuales contine una pauta 
de 8 puntos. El número binario obteni¬ 
do disponiendo ceros y unos en la mis¬ 
ma forma que se disponen los puntos 
blancos y negros de la rebanada corres¬ 
pondiente, es lo que se encuentra al¬ 
macenado en el generador de caracte¬ 
res. 

El texto que aparece en pantalla se 
almacena en una zona de la RAM lla¬ 
mada "archivo de pantalla" ("display 
fiíe"), codificado de la forma que se 
indica en el apéndice A del manual del 
Sinclair, Cada fila de caracteres acaba 
con un símbolo de NEWLINE (código 
Í76h). 


La visualización del texto comienza 
con un salto de la CPU a la dirección 
del primer carácter de la fíía corres¬ 
pondiente, pero con el bit 15 {el más 
significativo) puesto a "Y*, Esto pro¬ 
duce una reacción peculiar en el chip 


CARACTER 


CODIGO BINARIO DE CADA 
REBANADA HORIZONTAL 



CODÍGO HEXADECIMAL 


0 

0 

0 

0 

0 

0 

0 

0 

00 

0 

0 

1 

1 

1 

1 

0 

0 

3C 

0 

\ 

0 

0 

0 

0 

1 

0 

42 

0 

f 

0 

0 

0 

0 

1 

0 

42 

0 

1 

1 

1 

1 

1 

1 

0 

7E 

0 

1 

0 

0 

0 

0 

1 

0 

42 

0 

1 

0 

0 

0 

0 

1 

0 

42 

0 

0 

0 

0 

0 

0 

0 

0 

00 


Fig. 2 
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PROGRAMA PRINCIPAL 






Direc¬ 

ciones 

Códigos de 
operación 


Mnemónicas 

Comentarios 

4082 

3E1E 

START 

LD A,1E 



ED47 


LD l,A 

Registro 1 listo para re- 


0EFE 


LD C, FE 

torno a BASIC, si proce- 


067 F 


LD 8,7F 

de. 


ED78 


IN A, (C) 

Inicia pulso sínc. cuadro 


CB47 


BIT J0 r A 

Retorno a BASIC si se 


C8 


RETZ 

pulsa BREAK. 


3E08 


LD A,08 

Registro 1 apunta a zona 


ED47 


LD LA 

0800-09FF. 


0659 


LDB, 59 


4095 

10FE 

LAZ01 

DJNZ, LAZ01 

Primer ciclo de demora, 


DD2100E1 


LD IX, ARCH* 

IX apunta I a fila carac- 


110000 


LD DE,0000 

teres (con bit 15 a "1"). 


21B43C 


LD HL, 3CB4 

Carga n° de líneas a ira- 


A7 


ANDA 

zar por encima y debajo 


08 


RETC 

de la imagen, y n° de íí- 


D8 


RETC 

neas de imagen. 


00 


NOP 

Instrucciones de demora. 


7E 


LD A, (HL) 



0619 


LD B,19 

N° de caracteres por fila 


4C 


LD C,H 

(incluido el C9 final). 


CDBC40 


CALI GEN 

Generación de las líneas 


58 


LD E,B 

superiores de la pantalla. 


4D 


LD C,L 



CDBC40 


CALL GEN 

Generación de las líneas. 


5A 


LD E,D 

de imagen. 


4C 


LD C,H 



CDBC40 


CALL GEN 

Generación de las líneas 


060B 


ID B,0B 

inferiores de la pantalla. 

4068 

10FE 

LAZ02 

DJNZ, LAZ02 

Segundo ciclo de demora. 


18C6 


JR START 


40BC 

DBFE 

GEN 

IN A,(FE) 

Inicia sicr. de línea. 


D3FD 


OUT (FD), A 

Finaliza pulso de síncr. 


CDCC40 


CALL UN 

Genera línea en curso. 


7E 


LD A,{HL) 

I nstrucciones de demora. 


7E 


LD A,(HL) 



0D 


DEC C 

C cuenta nQ de líneas 


C8 


RETZ 

por trazar. 


00 


NOP 

Instrucción de denora. 


DD19 


ADD IX,DE 

IX apunta a la siguiente 


18F0 


JR GEN 

lineasde carácter s. 

40C C 

DDE9 

LIN 

JP (IX) 

Salto a siguiente i mea 





de caracteres. 




LISTADO 1 

_j 


RUTINA DE BORRADO 

Direc¬ 

ciones 

Códigos de 
operaciones 


Mnemónicas 

Comentarios 

40D2 

210061 

BORR 

LD H L,ARCH 



0E84 


LD C,B4 

NO de líneas de imagen. 

40D7 

0618 

LAZ04 

LD B,18 

N° de can por línea. 

40D9 

369E 

LAZ03 

LD(HL),9E 

Llena cada línea con 


23 


INC HL 

códigos de ''blanco' 1 


10FB 


DJNZ, LAZOS 



36C9 


LD(HL), C9 

Coloca código de RET 


23 


INC HL 

al final de cada línea. 


m 


DEC C 



20F3 


JR NZ,LAZ04 


40E4 

C9 


RET 





LISTADO 2 



de lógica (SLC), que fuerza una ins¬ 
trucción NOP en el bus de datos y al¬ 
macena el código del carácter a visuali¬ 
zar. Durante la segunda mitad de] ciclo 
de la instrucción NOP (dedicado al re¬ 
fresco de ta memoria dinámica), el SLC 
pone el contenido del registro I (1 Eh) 
en los siete bits altos del bus de direc¬ 
ciones {el bits 0 de! registro E se ignora). 
En Jos seis bits seguientes se pone el 
contenido de los seis bits bajos del có¬ 
digo del carácter a visualizar, y en los 
tres más bajos el número {0 a 7) de la 
linea que se está trazando dentro de la 
fila de caracteres. E] SLC toma nota 
además de si el bit 7 del código del ca¬ 
rácter es 1, en cuyo caso la visual iza- 
clon se realizará en negativo (carácter 
blanco sobre fondo negro). La direc¬ 
ción configurada en el bus de direc¬ 
ciones apunta ahora al generador de 
caracteres, justo al byte que contiene 
la pauta de puntos de la rebanada que 
debe visualizarse del carácter en curso. 
Dicha pauta se toma y se suministra en 
serie al modulador de TV. 

A continuación la CPU busca su si¬ 
guiente instrucción en el siguiente byte 
del archivo de pantalla, y así se repite 
el proceso hasta que se alcanza et 
NEWL1NE de final de línea. El código 
de NEWLINE se interpreta como Ea 
instrucción HALT (también de códigos 
76h), lo que detiene la CPU en espera 
de una interrupción que marcará el 
inicio de la siguiente línea de barrido. 


Alta resolución en el ZX81 


El programa en CM que se propone 
(listado 1) se ha tomado de un artículo 
de Ron Bisseíl (aunque aquí ha sido re¬ 
tocado en varios aspectos), y funciona 
de forma parecida a como lo hacen las 
rutinas de visualizacíón de la ROM. Pa¬ 
ra evitar que éstas interrumpan el pro¬ 
grama de alta resolución, la ejecución 
deberá realizarse en modo FAST. 

Este programa presenta las siguien¬ 
tes diferencias esenciales frente a Jas 
rutinas de vísualización de la ROM: 

1. El registro í no contiene 1Eh, si¬ 
no (38, a fin de tomar las pautas de 
puntos de la zona 0800h-Q9FF, en lu¬ 
gar del generador de caracteres. Esto 
permite manipular pautas distintas de 
las que contiene el generador de carac¬ 
teres. Lo Ideal sería poder diseñar las 
pautas y almacenarlas en la RAM, pero 
ésto no funciona porque la memoria 
dinámica se deshabilita durante el ciclo 
de refresco, instante que aprovecha el 
SLC para buscar Ja pauta de puntos. 

2. El dispositivo que lleva la cuenta 
de qué línea se está trazando dentro de 
la fila de caracteres (probablemente un 
contador interno del SLC) es puesto a 
cero al principio de cada línea median¬ 
te una instrucción IN A, (FE). Esto 
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1 REM 1234-5573901234-56759012: 
455759015345673901234557398X23^ 
S739022345e7©g0l234567S90223456'; 
3901234-5673Q0 
5 REM 

10 LET A$="3E1EED470EFF0S7FEO: 

3CBÍ7C83ES8ED47065910FEDD2Í00EI1 

10000£I&4.3Cñ7fr6rfS0íS7E^8Í9- 

S0 LET ñ$=R$4 "iCCreC^SaiDCDBt’ 
405ñ4CCDSC400606Il3FEiSC5DBFED3FD 
C.DCC4®7E7E0tDC3MDOÍ5l3F£riDE^" 

33 LET R$=ñ$ + tl 000000005lí508i0E 
54.06l9369Ea310FB3SC92300t0F'3C9" 
50© LET D=iB5I4 

SI© POR H=1 TD LEN Rí STEP 2 
520 LET ñ = lS* í CODE ñ$ ÍM.t -53Í ^CD 
DE R$ ÍN + 1í -28 
530 POKE ÍDf (N-D/23 ,ñ 
54,0 NEXT N 


LISTADO 3 


1 REM Y2 GOSUB 7; REiURN 
OSUB ?hC5 ?CQS YM 
URN <>5 LPRIHT > 

1 N BIRND??LN ffiRNDt* 


GOSUB '?.*■? i REI 
* AND? 

LEN 


f kcIURN 


RHD 
¡* f C 


<= RETURN PEEN CLEñR LN RTN 
; ✓ LIST <> DIíl 5 -7:ÜrsQ&: 

LS OTAN 7 

10 LET ñ(V^3ElEE&47eEFM67FeD 7 
8G64-7C33E03ED47 0&5910PEDD2100E11 
1S00021B4-3CR7D8D8007E0612" 

20 LET A$-A$ + í[ 4CCDBC4.05SÍ&CDBC 
40BR4CCDBC400B0B1GFE13 CgDBFEMFÍ> 
CDCC407E7E0DCS00DDÍ9ÍSF0OOE9" 

30 LET flÍ=R$+"000000002i00&10E 
54.0613369Ea310FB36C9230D20F3C9 ÍJ 
500 LET D=16S14 

510 POR N*I TO LEN A$ STEP 2 
520 LET A=16*ÍGODE flÍÍN)-SSJ+CO 
DE A$ íN + ii -23 
530 POKE CQ+íN-1) /2l , ñ 
540 NEXT N 
1000 5LOU 
1010 FñST 

102 0 IF USR 13514 THEM RE.H 


LISTADO 4 


1 REM Y 2 SOSUB ?; RET URN *"3 G 
□ SUS ?RC5 ?COS Y# GOSUB ?**? í RET 
JRN < > 5 LPRINT j 5SUS**** RHD? 
?LN ÍRHD77LN iRNDÍ'M RETURN /LEN 


<= RETURN PEEK CLERR LN ATM RHD 
; / LIST O DIH 5 -?:gta*yG£S7í C- 

US QTRN 7$4 NEXT TRN 0 

10 REH Ph'OGRRHñ "lük.Hkdk" 

20 REM <MIGUEL R, LERHR/I9S3) 


30 

40 

£00 


PEM 

REM 



SLCU 


250 PRINT 

300 PRINT "PROGRRHñ " " CUR HR5ñ tT 


320 PRINT 
320 PRINI 
330 PRINT 
340 PRINT 
350 PRINT 
350 PRINT 
370 PRINT 
3 80 PRINT 
RL 1 ’ 

390 PRINT 
DE L INER5 lí 


-TRjHlñDD £>E CÜPUP5" 
"EN t RLT R RESOLUCION" 

"1. INICIhR Y 5GRRRR 1 
"2, INTRODUCIR CORUA" 
"3 * REUISüRLIIPR" 

" 4 * CEHTRP-Da HORIZOHT 

’T* MODIFICAR NUMERO 


4F0 

INPUT X 

x 


460 

CLS 

% 


SO© 

IF XX=1 

THEN 

GüSÜB 3008 

5 10 

IF XX=2 

THEN 

SOTO SOS 

5 20 

XF XX=3 

THEN 

GOTO BÍ00 

530 

IF XX=4 

THEN 

GOTO 8500 

54© 

IF XX-5 

THEN 

GOTO 3600 

57© 

RUN 



S©0 

PPINT "BORRO 

TODO? i3I/: 

505 

INPUT X$ 



607 PRINT X$ 
510 XF X$>s="C 
515 PRINT 
520 PRINT 
N EN FGRMR” 

630 PRINT 
ñ 3000" 

540 PRINT 
00 “ 


THEN LtUSLí£¿ 3000 


"INTRODUZCA LA PUNGIO 


'■EXPLICITA El 
"Y LUEGO PULÍ 


.P LINE 

RUN 10 


650 PRINT 

660 PRINT 11 PARA INTERRUMPIR L 
A ÜISURL IZA -CION , PULSE BREPK ,J 
700 STOP 
1U00 REM 
ISO© FA5T 

1700 LET NL-PEEK 16543-1 

2000 FOR X = 1 TO 191 

3000 LET Y=65+70í5lN ÍX/3G) 

3050 LET Y^INT ÍNL-YÍ 

3200 IF Y<I GR Y> =NL THEN GOTO 4 
000 

3200 LET XX-X-XNT íX^SJ ^5 

o250 GOTO 3300 + 10 #XX 

330S LET C=158 

3305 GOTO 3400 

3310 LET C=ll 

3315 GOTO 3400 

3320 LET C=27 

3325 GOTO 34O0 

3330 LET C = 25S 

3335 GOTO 3400 

3340 LET C =42 

3345 GOTO 3400 

3350 LET C —153 

3355 GOTO 3400 

336© LET C =15 

3365 GOTO 3400 

337 0 LET G = 46 

3430 LET DIR=24832+25+Y+XNT ÍX/0 

H 

3500 POKE DIR j C 
4000 NEXT X 
5000 RUN S100 

7000 LET Y-65+7©*3IN ÍX/30) 

3000 PEM “MIGRES" 

3020 IF USR 15594 THEN REM 
6050 RETURN 
3100 SLÜU 
320© FñST 

3300 IF USR 15524 THEN REM 
3350 SLOU 
3400 RUN 
3500 REM 

3520 PRINT "CENTRADO HORIZONTAL" 

8540 PRINT PEEK 16557 

3550 INPUT HH 

3553 PRINT HH 

8550 POKE 16557 f -HH 

3570 POKE 16532,103-HH 

8580 RUN 

360© REM 

8620 PRINT "NUMERO DE LINEAS” 

8630 PRINT PEEK 16543 

3650 INPUT HH 

3555 PRINT HH 

3660 POKE 16598 ,HH 

3670 POKE 16543,HH 

368© POKE ±5544,INT íÍ300-HHÍ/2Í 
3685 IF USA 16594 THEN REM 
8590 RUN 
900© STOP 

9980 SñUE "CUR»HR6¡3" 

9995 RUN 


LISTADO 5 
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equivale a usar caracteres compuestos 
de una única rebanada horizontal de 8 
puntos (en lugar de ocho rebanadas) 
( 2 ), 

3, El "texto" a visualizar no se al¬ 
macena en el archivo de pantalla, sino 
en una "zona de archivo" que empieza 
en 6130h. 

Los códigos de los caracteres de 
"rebanada única" que emplea este pro¬ 
grama se muestran en la tabla 1. Para 
componer un dibujo o gráfica de alta 
resolución es necesario disponer en la 
zona de archivo {a partir de la direc¬ 
ción 6100) 180 filas de caracteres más 
un código de RET (C9h). Una fila en 
blanco tiene e! siguiente aspecto en Ea 
zona de archivo: 


sentaciones gráficas de funciones mate¬ 
máticas. 

Es posible emplear el CM descrito 
para hacer dibujos en alta resolución, 
pero ello exige diseñar primero un pro¬ 
cedimiento para introducir fácilmente 
códigos en la zona de archivo, Por otro 
lado, realizado el dibujo puede ser in¬ 
teresante conservarlo grabándolo en 
cassette. Ninguna de estas dos cosas ha 
sido prevista aquí, pero puede ocupar¬ 
se el lector de ello si le resulta de inte¬ 
rés. 

El diseño de un dibujo exige una 
previa realización en papel cuadricula¬ 
do usando pautas de puntos tomadas 
de la tabla 1. Luego se codifican las 


pautas empleadas y se introducen en la 
zona de archivo. Recuérdese en todo 
caso que: 

1. Cada fila se compone de 24 ca¬ 
racteres más un código de RET. En to¬ 
tal hay 180 filas. 

2. Las filas primera y última de la 
zona de archivo deben quedar en blan¬ 
co, 

3. La Mamada al programa de visua- 
fización se hace desde el BASIC me¬ 
diante tres instrucciones consecutivas: 

SLOW 

FAST 

IF USR 16514 THEN REM 

Sí ía llamada al código máquina se 
hiciera de otra manera, la gráfica 
aparecería descentrada o desarreglada. 

4. La visualización se interrumpe 
pulsando BREAK. 

5. La rutina de borrado se puede 
llamar mediante una instrucción 
RAND USR 16594 o cualquier otra 


-- T - 

8E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9E9EC9 

RET 

(9Eh es el código de blanco) 


No se pueden emplear pautas de 
puntos distintas de las que aparecen en 
la tabla 1. Además es preciso dejar en 
blanco las filas primera y última, pues 
estas se emplean para ef trazado de los 
márgenes superior e inferior de la pan¬ 
talla. 

Puede obtenerse una zona de archi¬ 
vo en blanco haciendo actuar la rutina 
de borrado que se muestra (listado 2). 
Esta rutina crea 180 filas con 24 carac¬ 
teres blancos (código 9Eh) cada una. 


Cómo introducir el código 
máquina 

El programa en CM debe Introducir¬ 
se en una sentencia REM ai principio, 
en las direcciones que se Indican en los 
listados 1 y 2. Puede usarse el progra¬ 
ma cargador que se muestra en el lista¬ 
do 3* La sentencia REM debe contener 
un mínimo de 99 caracteres (la que se 
muestra tiene 130). 

El programa cargador se ejecuta 
(RUN) y luego se añaden las líneas 
1000,1010 y 1020 que se muestran en 
el listado 4 para comprobar el funcio¬ 
namiento del CM. Pulsar RAND USR 
16594 para crear la zona de archivo 
haciendo actuar la rutina de borrado. 
Introducir POKE 24832, 00 y pulsar 
RUN 1000. Si todo va bien, aparecerá 
una pequeña línea vertical cerca del 
ángulo superior izquierdo de la panta¬ 
lla, síntoma de que el programa fun¬ 
ciona, interrumpir la visualización con 
BREAK, 

En el próximo parágrafo se propone 
un programa en BASIC que hace uso 
del CM introducido para hacer repre- 

(2) Las instrucciones ÍN/OUT del programa 
de Ron Bisself generan impulsos de sincro¬ 
nismo, pero no es esa ía función que cum¬ 
plen dentro del programa f porque dichos im¬ 
pulsos ya son generados automáticamente 
por el "hardware" de i ZX81. La instrucción 
IN A, ÍC) del principio detecta si se ha pul* 
sado la tecla BREAK , / la IN A, (FE) pone 
a cero el contador de líneas interno. 


PAUTAS DE PUNTOS 
Y SUS CODIGOS 


POSICION 



1 

2 

3 

4 

5 

6 

1 



9E 



















2E 

0F 



















99 

0E 







- 

1 j* - * - " 









22 

2A 



















*A 

3 6 


















03 

85 



















88 

BC 



















H 

04 


















BB 

17 










09 









IB 



















08 

39 









02 









15 















1 


■ 

m 

26 

98 



1 



ti 






_ 






9A 

91 , 




' 















90 

8C 








i 








H 



BF 

8D 






1 

n 












1F 

Al 










20 





1 




A7 





1 

ü! 








I 




24 

0B 


_ 






_ 


30 









AS 












_ 





' 


BE 

0t 






j - 

¡ 





_ 



”3 

_1 




07 

93 





f 










f 



96 

U 

_ m 1 I 

.... 





DIT:7 

6 

5 

4 

3 

2 

1 

0 




7 6 5 4 3 2 1 0 


TABLA 1. 
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capaz de albergar la función USR 
16594. 


Programa "CUR. HR6A " 


Este programa hace uso def CM des¬ 
crito para visualizar gráficas de funcio¬ 
nes en alta resolución. 

Sólo se emplean pautas de puntos 
compuestas por un único punto en 
negro para cada carácter-rebanada. En 
la tabla t se comprueba que no es po¬ 
sible colocar un punto único en las po¬ 
siciones 1 y 4. Para las restantes posi¬ 
ciones se usan los siguientes códigos: 


posición 

i 

código hex. 

código dec. 

1 

2 

0B 

11 

3 

IB 

27 

4 

- 

«- 

5 

2A 

42 

6 

99 

153 

7 

0 F 

15 

8 

2E 

46 


Cuando un punto debe ir en la posi¬ 
ción 1 ó 4 del carácter, el programa 
asigna el código de blanco (9Eh=158d), 
Esto puede dar un aspecto algo discon¬ 
tinuo a la gráfica, pero el resultado 
puede considerarse aceptable. 

La ejecución del programa comien¬ 
za con el siguiente menú: 

1. INICIAR V BORRAR 

2. INTRODUCIR CURVA 

3* REVISUALIZAR 

4, CENTRADO HORIZONTAL 

5, MODIFICAR NUMERO DE LI¬ 
NEAS. 


Debe comenzarse siempre con la 
opción 1, que se encarga de crear una 
zona de archivo en blanco. Puede usar¬ 
se igualmente esta opción para borrar 
gráficas previamente introducidas. 

La opción 2 pregunta primero si se 
desean borrar o no las gráficas introdu¬ 
cidas, y luego informa cómo hacer pa¬ 
ra introducir una gráfica nueva: debe 
colocarse la función a representaren la 
línea 3000Í del programa en la forma: 

3000 LET Y= f{X) 

El programa contiene inicialmente 
en dicha línea el siguiente ejemplo: 

3000 LET Y= 85 + 70*SÍN {X/30) 
que sirve para visualizar una senoidal. 

Hecho ésto se pulsa RUN 1000 con 
lo cual el aparato pasa a modo FAST y 
calcula durante algunos segundos colo¬ 
cando los códigos apropiados en la zo¬ 
na de archivo. Terminados [os cálculos 
se entra automáticamente en la visuali¬ 
zado^ de la gráfica. Para interrumpiría 
se puísa BREAK, y se regresa al menú 
pulsando RUN. 

La introducción de varias gráficas 
puede hacer que las nuevas se "coman" 
pequeños pedazos de las antiguas, de¬ 
bido a que el programa sólo usa un 
punto en negro por carácter. 

La opción 3 se limita a dar una nue¬ 
va visualización de las gráficas introdu¬ 
cidas hasta el momento. 

La opción 4 permite desplazar la 
gráfica a derecha o izquierda en la pan¬ 
talla, Puede ser útil sí se modifican las 
instrucciones de llamada al CM, lo cual 
desarregla o descentra la gráfica. El 
desplazamiento se obtiene introducien¬ 
do un número entre 0 y 1JÜ0 El cen¬ 


trado está inicíaímente ajustado a 11. 
Un número mayor produce un despla¬ 
zamiento a la izquierda y uno menor a 
la derecha. 

La opción 5 permite usar un núme¬ 
ro de líneas distinto de 180. Al usar es¬ 
ta opción debe recordarse que las lí¬ 
neas primera y ultima se emplean para 
el trazado de los márgenes superior e 
inferior, por lo que no se puede dibu¬ 
jar en ellas, y que la modificación del 
número de líneas borra las gráficas pre¬ 
viamente introducidas. 

La zona útil de la pantalla corres¬ 
ponde a rangos de valores de las varia¬ 
bles comprendidos entre 1 y 192 para 
la X y entre 1 y 178 para la Y. 

Los valores de la X los asigna el pro¬ 
grama mediante un ciclo FOR-NEXT. 
Los valores de la Y que salen fuera del 
rango simplemente no aparecen en 
pantalla, pero aquellos que no pueden 
ser calculados debido a que exigen 
operaciones aritméticas ilegales {por 
ejemplo, radicandos negativos en una 
raíz cuadrada, argumentos nulos o ne¬ 
gativos en logaritmos, denominadores 
nulos, etc.} detienen el cómputo for¬ 
zando un código de error. La opción 
3 permite entonces visualizar el peda¬ 
zo de gráfica obtenido hasta e! mo¬ 
mento. 

Los tramos de pendiente elevada 
pueden tener un aspecto algo discon¬ 
tinuo. Esto se puede arreglar con un 
paso (STEP) menor que 1 en la línea 
2000, aunque a costa de prolongar el 
tiempo de cálculo. 

_ Miguel A. Lerma, 


PON «EN ORDEN» TU FUTURO 


NUESTRAS MARCAS 

COMMODORE-64 YVIC-20 

SINCLAIR (ZX Y SPECTRUM) 

ORIC 

ATARI 

UNITRON 

NEW BRAIN 

TEXAS INSTRUMENTS 



campuTER 

CEriTER 


NUESTROS SERVICIOS 

ASESORAMIENTO INFORMATICO 
ESCUELA DEL ORDENADOR 
CLUB DEL ORDENADOR 
PERSONAL 

CENTENARES DE PROGRAMAS: 
EDUCATIVOS 
RECREATIVOS 
DE GESTION 


PERIFERICOS: 
IMPRESORAS 
UNIDADES DISCO 
MONITORES 


CASSETTES 

TELEVISION 

SUMINISTROS 


TODO TIPO DE FACILIDADES DE PAGO 
REMISION A TODA ESPAÑA 

VISITANOS O PONTE EN CONTACTO 

RBLA. DE CATALUNYA, 50, I o 2 a . TELF. (931 215 60 70 
APART, CORREOS 5455 • 08007 BARCELONA 
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Este mes os propongo un juego, al 
que he denominado LABERINTO, que 
puede proporcionaros (A*SIN{E)/ 
TAN(z))*5 E+999 minutos de entrete- 
oimiento a la par que, como cualquier 
programa, elementos para el estudio de 
la mecánica del lenguaje BASIC. 

Está desarrollado con un microor¬ 
denador SHARP MZ.8G.B, Interpreter 
SB-661Ü, pero, tranquilos!, ya que 
leyendo el artículo que acompaña al 
programa estaréis en condiciones de 
modificarlo para la mayoría de los mi¬ 
cros que corren por aquí, 

DESCRIPCION DEL JUEGO: 

La mecánica del juego es muy senci- 
lia. Se trata de encontrar el recorrido 
seguido por el ordenador, dentro de 
un tablero de 25 casillas numeradas. 
De forma aleatoria, como siempre!, se 
asignan un número de pasos ai recorri¬ 
do, una casilla de salida y otra de llega¬ 
da; a continuación, empezando por el 
primer jugador (1-4 jugadores) se de¬ 
be introducir los números de las casi¬ 
llas por las que se supone ha realiza¬ 
do el recorrido ei ordenador. Siempre, 
como primer número del recorrido, se 
debe entrar el correspondiente a La ca¬ 
silla de salida. Al entrar los pasos sona¬ 
rá una música aguda indicando que el 
paso es correcto ó una música grave 
que nos indicará error y cederá el tur¬ 
no al siguiente jugador. 

El recorrido, dentro de la misma 
partida, es idéntico para todos los ju¬ 
gadores, por lo que el camino seguido 
por un jugador hasta entrar un paso in¬ 
correcto puede servir para el jugador 
siguiente, que deberá intentar recor¬ 
darlo, ya que tendrá que empezar de 
nuevo por la casilla de salida. 


Si los pasos entrados han sido co¬ 
rrectos al llegar a la última casilla sona¬ 
rá la música de fin de laberinto y se fe¬ 
licitará ai jugador que lo haya conse¬ 
guido, Se puede continuar jugando de 
forma que el marcador de errores no 
se restaure, o sea que se vayan acumu¬ 
lando, ó bien ejecutar de nuevo el pro¬ 
grama, con lo que el marcador se res¬ 
taura a cero. Atención, porque el reco¬ 
rrido del laberinto puede cambiar de 
sentido y volver sobre si mismo en 
cualquier punto, o incluso pasar sobre 
la casilla de salida o llegada varias ve¬ 
ces. 

Hay muchas formas de establecer el 
ganador en el juego del laberinto, pue¬ 
de jugarse a una partida, siendo gana¬ 
dor el primero que descubra ei recorri¬ 
do, ó bién a series de partidas, asignan¬ 
do puntos positivos por laberinto des¬ 
cubierto, dependiendo del número de 
pasos det recorrido y el número de 


intentos realizados. Se puede jugar, 
también, en solitario, con la compañía 
del ordenador, por supuesto!. 

DESCRIPCION DEL PROGRAMA: 

No es fácil describir el programa ya 
que es sumamente sencillo. 

El número de pasos de! laberinto se 
asigna de forma aleatoria, teniendo co¬ 
mo tope, el máximo entrado por el 
operador, en la rutina de entrada pasos 
laberinto, lineas 500-535. La variable 
I\IE contendrá el número de pasos asig¬ 
nado. 


GENERACION DEL LABERINTO: 

(líneas 400-496) De forma aleatoria se 
asigna una casilla de salida {línea 405). 
A partir de la salida los siguientes pa¬ 
sos, hasta llegar a NE pasos, se realizan 
de la siguiente forma: Se genera una 
variable, D, aleatoria y comprendida 


EJECUCION DEL PROGRAMA 


oooooooo LABE 


1 

*-> 

jL. 


4 

5 

L i 

7 


9 

10 

1 1 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 i 

_i 

23 

24 

25 


MIGUEL ENTRA TU 


R I N T Q OOOOOOOO 


SALIDA 

8 


LLEGADA 

“í 


LONGITUD 

8 

PARTIDA 



■«asmase» 

MIGUEL = 1 

JOSE = 1 


TIRADA (1-25) = 17 
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entre 1-4, que indicará la dirección a 
seguir desde la última casilla encontra¬ 
da, dependiendo de D la dirección será 
=» 1: abajo, 2:arriba, 3:derecha y 4:iz- 
quierda. (ON D GOTO. .. línea 430}* 
Se comprueba que exista una casilla 
en ha dirección indicada por D antes de 
asignarla (lineas 420 a 425), ya que f 
por ejemplo, no existe una casilla arri¬ 
ba de la 1, 

Los pasos se acumulan en la matriz 
numérica E(n). Si L, que indica el nu¬ 
mero de orden del paso, es igual al nú¬ 
mero de pasos del laberinto (línea 
475) se asigna como casilla de llegada 
la correspondiente a este paso (ver lí¬ 
nea 485). 

— GOSUB 250: Hace que se visualicen 
en el teclado las marcas de salida y lle¬ 
gada, la tabulación para la impresión 
en la casilla correcta se calcula en 265- 
270. 

- La rutina ENTRADA MOVIMIEN¬ 
TO, líneas 200-270, nos sirve para en¬ 
trar las tiradas y comprobar si son co¬ 
rrectas. J$(n) = Contiene el nombre de 
los jugadores. En la línea 220 compro¬ 
bamos que el número Introducido esté 
dentro de los márgenes de la tabla y 
que no se repita el de la última intro- 
dución {U — último número entrado). 

El valor de Z indica: Si es = 0 que 
el paso es erróneo, si el número entra¬ 
do, Q, es igual a la casilla de llegada y 
el número de paso es igual al número 
de pasos del laberinto (NE) : Z -2, lo 
que indicará que hemos finalizado el 
recorrido. Caso contrario Z se igualará 
a 1, indicando paso correcto. 

Como variables musicales he utiliza¬ 
do 4: 

Z3$ = Mi típica variable de error de 
operación (3 pitidos agudos). 
M$(Z) =dependiendo del valor de Z 
tenemos: 

M$(Ú) = Música de paso incorrecto 
(Pitido grave). 

M$(1) = Música de paso correcto 
(Varios tonos agudos), 

M$(2) — Música final laberinto (Mú- 
sica de tonos agudos). 

Vistas las principales rutinas del 
programa veamos la conversión a otros 
ordenadores: 

TEMPO 7: Indica la velocidad de eje¬ 
cución de la música (No es impor¬ 
tante), 

TODAS LAS VARIABLES DE MUSI¬ 
CA (Z3$ r MS, M$(n)) pueden suplirse, 


dependiendo del ordenador, por 
SÜUND, BEEP, PLAY„ . . En el caso 
de no tener ordenador con 'cualidades 
musicales 1 puede suplirse las Instruc¬ 
ciones MUSIC por un mensaje de 'PA¬ 
SO CORRECTO', TIN LABERINTO', 
etc, , . 

CURSOR x,y = Sitúa el cursor en la 
columna V, fila Y de la pantalla. Se 
puede suplir por LOCATE x,y;PRINT 
TAB (x,y) ó PRINT@n (siendo n el 
número de ia posición de pantalla). 


GET XS = Acepta una pulsación del 
teclado.Es equivalente a X$^1NKEY$, 
ÓX$=KIN$. 

CONSOLE C40,S0,24 = Es un coman¬ 
do de modo de vlsualización, compues¬ 
to, en este caso de 2 funciones — CON- 
sole C4Ü = Pantalla en modo de 40 ca¬ 
racteres por línea, y CONSOLE 
SO,24 = que indica scroll automático 
desde la línea 0 hasta la 24, La primera 
función equivale a WIDTH 40, (ó 36 
según pantalla), ó CTRL (n) (siendo n 


1 rem--—-— 

2 REM - LABERINTO - 

3 REM ™-*—-- ———-—- — 

4 REM — AUTOR J.M. VIDAL LACABA - 

5 REM---—-—--- 

6 REM - COPYRIGHT EL AUTOR Y -— 

7 REM - EL ORDENADOR PERSONAL - 

0 REM —-------- 

9 REM 

10 DIM ECIOO) (4) <4KP<4> »C<200> 

15 TEMPO 7i 13$="+B1RO+B1RO+B1RO" 

20 MS (O) - 1, -C9 ,, :MS t 1 ) = " +G2R0F5R0G2" 

25 MS= ,i +F 5R 1 +F5R1+B3R i +F5R1 + F5" 

30 CAS= 11 OOOÜGQGO LAEER I NT O OOQDÜGOQ 

35 MS(2)=MS+"R5"+MS:G0SUB 2000:GOSUB 300 
40 PA=PA+1:GOSUB 500:GOSUB 400:T=1 
45 U=OiN^l 


50 GOSUB 200:MUGIO M*<ZJ 

55 ON Z GOTO 70? 80 

60 F (T)=P(T) +1:CURSOR 19, ÍT + 12> 

65 PRINT J S C T ) ; " = *■ 5 P (T) : T=T+1: I F (T=5) +- (T>NJ) THEN T-l 

66 GOTO 45 

70 REM-FASO CORRECTO-— 


75 N=N+1=GOTO 50 

00 REM —- FIN LABERINTO - 

05 CURSOR O? 20í PRINT "FELICIDADES "¡JíCT);STRINGSí 
90 CURSOR 10? 21 ¡PRINT 
95 GETX*: IF X* = " m THEN 95 

100 IF X*="S 1É THEN 115 

105 IF Xí="N" THEN PRINT CHRÍÍÓ);" ADIOS 
110 GOTO 95 

115 CURSOR 10?213PRINT SIRINGAf" %29> 

120 CURSOR 0,20:PRINT STRINGÍ í" ",39 ) 

125 FOR Y=3 10 15 ETER 3:F0R X=3 TO 15 STER 3 
130 CURSOR X, Y SPRINT " *' 

135 NEXT X:NEXT Y 
140 GOTO 40 

200 REM -- ENTRADA MOVIMIENTO - 

205 CURSOR Ot 20:PRI NT 5TRING* ( " ", 39) 

210 CURSOR 0,20: PRINT J*(TK 

215 INPUT " ENTRA TU TIRADA U-25) - ";Q 

220 IF <□<1)+ÍQ>25>+ÍQ=U) THEN MUSIC Z3$:G0T0 205 

225 U-0=IF GK >£ (N) THEN Z-0:RETURN 

230 IF <Q=LL>*(N=NEÍ THEN Z=2:RETURN 

235 2=1:RETURN 

250 REM —- MARCAS DE SAL/LLEG - 

255 N=S:VÍ="®": GOSUB 265 

260 N=LLí V*= "II" s GOSUB 265= RETURN 

265 A=INT(N/5+.9) 


270 

275 

300 

305 

310 

315 

320 

325 

330 

335 

340 

345 

350 


360 

365 

370 

375 


V=A*3!X=(N-<ft-l> *5)*3 
CURSOR X,Y:PRINT V*:RETURN 

REM-—- CONFECCION TABLA —-—- 

PRINT CHRfc<6>;CAÍ 


PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

r- r~ 

! 1 

\ 11 

-1-1 - 

1 1 

21 3! 

l l 

-1- 

1 1 
*1 5 1 

K .1 

1-- -i-1 

!SALIDA í | 

1 1 i 

!LLEGADA | 1 

1 +- 

\ ! 

1 9 

r-1 

E 1 

1 1 

t 61 

I 1 

71 81 
« 1 1 

i \ 

9 | 1 0 | 

1 f 

ILONGITUDI 

■ i 

1 1 

1 1 

1 \ 

T “1 

1 1 

r f 

|PARTIDA 1 1 

PRINT 11 
PRINT 11 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

1111121131141151 

1 1 í—h 1-1 

! I 1 1 1 ! 
|U,|17|18|191201 
l-—i— \ —i—i—l 
lililí 

i_i_i 

■«aanaaiT 


%17) 


END 
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PRINT" 121122123(241251 

PR INT” ’ L —- 1 - 1 - J 

RETURN 

REM —- GENERAR LABERINTO --- 

CURSOR O* 20= PR INI "1 
R-INT(RND(5> *25)+1í S=RiP-S í L=i 
E(L1 “P = C í L)-P 
P=E(L) iD—I NT íRND(5)*4)+1 

IF (D=3) * < (P=5) + (P=lQ) + <P=t5)-MP=20>) THEN 405 

IF (D=4)*(ÉP=6>+<P=11)+(P=16)+(P-21>) THEN 405 

ÜN D GOTO 435,440»445,450 

p=p+5:GOTO 455 

P=P-5=GOTO 455 

P=P+11 GOTO 455 

p^p-l 

IF <P<1)_ + <P>25) THEN 415 
IF (L>1) * (P=EÍL-1>) THEN 415 

L=L+1íIF L=NE THEN 405 
GOTO 410 

E { L) =F" LL-P:GOSUB 250 

CURSOR 2?, 3= PRINT " "'.CURSOR 29,5:PRINT " " 

CURSOR 29,3:PRINT STRííS>:CURSOR 29,5;PRINT STRÍÍLLJ 
CURSOR Op 20*PRINT STRINGÍÍ" ",40> :RETURN 
REM-- ENTRAR No. PASOS —— 

CURSOR 0,20=INPUT "No- MAX, PASOS LABERINTO (10-100) * 
IF (NE^10)+CNE>LOO> THEN MUSlC Z3$:GOTO 505 
K=1NT(RND(5)*NE+I)íIF K<7 THEN 515 
NE=K 

CURSOR O,20sPRINT STRINGtí" ",39) 

CURSOR 29,7:PRINT " 

CURSOR 29,7:PRINT STR*(NE)=RETURN 

J REM —-- ENTRADA JUGADORES -— 

i CONSOLEC4O,SO,24iPRINT CAÍ 
} CURSOR O,IOSPRINTSTRING*(" ”,39) 

i CURSOR O»10*INPUT "No. DE JUGADORES (l-4> * "jJ;NJ=J 
It IP (J< 1 > + (J >4) THEN MUS IC 23* : GOTO 2015 
Ü POR DM TD J 

> CURSOR O, 10= PRI NT STRING*<" %39> 

i CURSOR OflOSRRINT "NOMBRE JUGADOR "íGi 

> INPUT " ■ 

f) Jí-LEFTí t í Jí+" "),10> 

> jíío)=j*:nekt gmreturn 


el carácter correspondiente, que de¬ 
pende del ordenador). Esta instrucción 
se puede suprimir totalmente en los or¬ 
denadores que solo tengan un formato 
de visualizaron. 

STRINGS ("X" n) = (imprime una se¬ 
rie de n caracteres X, Atención a esta 
instrucción porque es muy similar en 
sintaxis a la de TRS, VIDEO GENIE ó 
TOSHIBA, pero dentro del paréntesis 
los datos están al revés, primero el ca¬ 
rácter y después el número de elemen¬ 
tos. Equivalentes; STRINGS {n, "X"). 

Por último aclarar como funcionan 
los operadores lógicos: 

— !IF <expresión> + <expresión> 

THEN <número línea > 

— IF <expresión> * <Cexpresión> 

THEN <número línea> 

El símbolo '+ r corresponde al ope¬ 
rador lógico — OR. 

El símbolo corresponde al ope¬ 
rador lógico = AND. 

Para finalizar solo me queda desea¬ 
ros muy buenos ratos de ocio con 'LA¬ 
BERINTO' y como siempre esperar 
vuestras críticas y sugerencias.D 

José M. Vida! Lacasa. 



El Ordenador Personal, núm, 28 


173 






DIRECTORIO 


10OO ordenadores. Material 



microsistemas 


Software 
para aplicaciones 
verticales. 


DISTRIBUIDORES OFICIALES OE 

CQMMDDORE y OUVEITI MgO. 


Apartado tte Comeos 10.048. Madrid Tel. (90 440 3000. 



OATA 

PROCESSING 2000, 
S. A. 


EN MICROtNFORMATICA, 
INFORMESE ANTES 


Sabino Arana, 22-24, bajos. 
Barceiona-28. 
Teléfono 330 77 14. 

VENTA DE MICROOROENADOBES 
PARA LOS SECTORES: 

• PROFESIONAL. 

• HOGARPERSONALES. 

• ENSEÑANZA. 

• HOSPITALARIO. 

ESPECIALIZADOS EN MEDIMATICA. 
COMPLETOS SERVICIOS 
EMPRESARIOS,IMFORMATICOS. 

[g er propio edificio. 


PROGRAMAS STANDARD Y 
LLAVE EN MANO. TECNICOS 
■ Y DE GESTION PARA ORDENA¬ 
DORES HEWLETT-PACKARD 
SERIES 80, 9.800. 200 Y 250 

nUTTCV'o 

mmmmm 

Aplicaciones Informáticas 

M. Generalísimo. 25-1? B. M (91)715 92 68 
Pozuelo de Ahradn. MADRÍD-E3 



A 

ATARI* 


ATARI 8 600XL 
ATARI 8 800XL 


ORDENADORES 
PARA EL HOGAR 

Extenso software fisto para ef uso 

+ Microprocesador! 6502 (ciclo de 0,56 
Microsegundos 1,8 MHz), ANTIC, GTIA, 
POKEY íespec.) 

* Gráficos de alta resolución f 320 192) 
puntos. Pan tal la de 24 lineas por 40 
caracteres, 

* 16 Cobres con 16 Intensidades cada uno 

* 4 Sintetizadoressimultaneóse 
independientes Cuatro octavas. 

* Lenguajes: BASIC. ASSEMBLER, 

MAGRO-A$SEMBLER> PILOT, MICROSOFT, 
PASCAL Y otros 

* Mód u b s de memo ría conec tab les 
directamente por el usuario de 16 K RAM, 
32 K RAM y 64 K RAM. 

Distribuidores EXCLUSIVOS y servicio técnico 
en todo el área nacional, 

(Unimport 

División Ordenadores 
c Dos Amigos n* 3 Madrid 8 

Apañado de Correos 8386 Tete. 2473121- 247 3126 


_«fe_ 

Diez & Diez. S. A. 

DIDISA 

P°. de Rosales. 26 - Tls. 248 24 01-02 * Madrid-8 
MICROORDENADORES 



Qgcippkz 



Conde de l3brrdI T IOS 
Tel.: 254 45 30 
BAKU LONA 15 

Micro Ordenadores: 
Rockwell 
Oído Scientific 
Videoge nie 
Sinclair 




5fí 


- MICROTERSA 


Miguel Yusíe, 16-2°B 
Teléfono: 754 04 73 - MADRID-17 


ORDENADORES PERSONALES 

UNA EMPRESA CON VOLUNTAD 
DE SERVICIO 

MICROPROCESADORES 
COMPATIBLES CON 
EL SISTEMA APPLE 

SERVICIO A PROVINCIAS 



DISTRIBUIDORA DE SISTEMAS 
ELECTRONICOS, S.A. 

Comtes d’Urgell, 118 
Tel.: 323 00 66 
Barcelona 11 

Ordenadores SUPERBRA1N 
IMPRESORAS MATRICIAL ITHO 
IMPRESORAS MARGARITA iTHO 
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ELE CTRONICA 

^SANDOVALsa 

COMPOWtNTFS Etf [TRONCOS PRÜFESIQMALtS 


SandovaJ, 4 

Tel.:445 18 33 *445 18 70 
MADRID - 10 

Micro Ordenadores: 
Rockwell 
Qhio Scientífic 
Videogeníe 
Sinclair 


Mfcerdicit 


DfSTR IBUIDORES 
AUTORIZADOS DE: 


3 B 3 BBBB 


rCl HEWLETT 
W!f!M PACKARD 

RAISJK XEROX 

Su problema específico, 
tiene 

una solución específica. 

IBERICA DIGITAL, S.A. 
Informática profesional y de gestión. 
CLARA DEL REY, 55 - MADRID -2 
TEL: 413 06 11. 


PERSONAL COMPUTER 


ESPECIALISTAS EN SOFTWARE 
(PROGRAMAS) PARA: 

ZX-81 
VIC - 20 

P° de la Castellana, 179 -1 0 ¡zq. 
MADRID-16 

Tel.: 279 31 05 


- MICROTERSA 
Miguel Yuste,16-2°B. 
Teléfono: 254 04 73 - MADRDM7 


ORDENADORES PERSONALES 
PERIFERICOS 
MONITORES 
SUPLEMENTOS 

SE PRECISAN COLABORADO¬ 
RES DE VENTAS A COMISION. 




ATICA 


f^|a®okcEsíowAnio autorizado 
IHOÉ!. gPOEMADOH PERSONAL IBM 

¿Conoce los nuevos precios 
del FC-IBM y sobre todo 
sus nuevos pr ogram as? 

En cualquier caso le aseguramos un 
estudio serio y profesional de sus 
necesidades, ofreciéndole: 

■ Software especifico én mano" 

■ Experiencia en comunicaciones. 

■ Cursos de formación de usuarios. 

■ Aplicaciones ■ Software standar 

sect otiaics: d e ap I ieac ión y 






LAGASCA, 90 

feitru rns Ortega y Gatwtl 

IWsdrril -6 

Tslf. 431 60 3Z 

435 52 56 


MECOMATIC 

SHARP 

MECANIZACION DE OFICINAS. I. i 

BARCELONA-36 

Av.D ¡agonal, 431 bis. Tfno.200 19 22 
MADRIDA-3 

Sta. Engracia. 104 Tfno.441 32 11 

BILBAO—12 

Iparraguirre, 64 Tino. 432 00 88 

VALENCIA-5 

Ciscar, 45 Tfno. 333 55 28 

SEVILLA-1 

San Eloy,56 Tfno. 215 08 85 

ZARAGOZA—6 

J.Pablo Bonct, 23 Tfno. 27 41 99 

Ordenadores profesionales SHARP para 
todo nivel de actividad. Programas téc¬ 
nicos y degestiión. ■ „ 

SERVI CKT TECNICO GARANTIZADO 
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Programas específicos para 
arquitectura, construcción y obra 
civil, sobre microordenadores 
Hewlett-Packard. 

Pídanos Catálogo gratuito. 


bitfcteca 

deprcgnainaa 


7000 Sistemas en Kit 


ELECTRONICA 


&SANDOVAL 


General Martínez Campos, 5 Bajo lzqda. 

TcL: 446 60 18 

MADRID - 10 

BrusL 102 - Entresuelo 3°. 

TeL; (93) 201 21 03, 

BARCELONA-6 

Distribuidores de los ordenadores: Apple 
11 y Apple 111 y de los discos rígidos 
COVRVUS de 5, 10 y 20 Megabyíes. 


COMPQ.NtNlfS (KCIROMCOS PftOFEShOHALES 


Sandoval, 4 

Tel.: 445 18 33 -445 18 70 
MADRID - 10 


Micro Ordenadores: 
Rockwell 
Ohio Srientific 
Videogenie 
Sin clair 


MtCROlNFORMATlCA AVANZADA 


8000 Libros y Revistas 


Servicios 


La Ornea Tienda de Ordenadores «penalizada 
en la mecanización de la Pequeña y Mediana 
Empresa donde en cualquier momento podrá 

discutir 

• Análisis Mecaniración d« tu Empresa 

* Desarrollo de Programes a Medida 


PRODACE 

Ferraz, 11 - 3o 
Tel.: 247 30 00 
MADRID 8 


HEWLETT PACKABD ■ HP 15Ü 
WANG PC 

TOSHIBA T300,T100 
VICTOR/SIFIIUS 


Programación de Ordenadores en Basic. 


mtroidi ■nnjiacio empresas nos aval 

Venta «n Previ ia* Zona Centro 
Servido Técnico Propio 
Juan ¿(vare; MendzabaL 55 MADRID 3 
¡En Arguelles, antes Víctor Praderal 
Teléfonos: (9U 242 t5 57 y 67 


LDGlíTlflTlCfl 


Lagascíi. 90 

(esquina Órtegíi y nassetl 

MADR1D-6 

,ii iL> L . /feÜLnijbr ' * 

UN NUEVO CONCESIONARIO 
OE IMVESTRONICA PARA 
EL ORDENADOR SINCLAIR 


SINC LAIR ¿X 81 l4.W.-írt>. 

si nít w\ t r z\ sp i cr m\nu '' f * ■ ■>' i[ < p T< ■ 

stsn AIR 7\ SI'tLÍKL SI 4 JU 
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CPU Z80/6502 


EL SISTEMA 
IDEAL PARA 
APRENDER EL 
FUNCIONAMIENTO 
DE UN 

MICROPROCESADOR 


Aplicaciones industriales • OEM 
Centros de Formación Profesional 




Cas!ello, 25, 3. ; E - Madrid-1 - Teléf. 435 3701 
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PEQUEÑO 

COMPATIBLE 


POTENTE 


CARACTERISTICAS TECNICAS 

CPU 6502 - ROM 16KB - RAM 64KB 
INTERPRETE BASIC COMPATIBLE APPLESOFT 
FORMATO DE PANTALLA 
* 960 caracteres (24 lineas» 40 columnas) 


resolución) en matriz de 40 x 48 
resolución) en matriz de 280 x 192 


cías alfa numéricas y de funciones 
ACE DE CASSETTE 
'ACE DE CARTUCHO-SOFTWARE 
FACE IMPRESORA CENTRONICS 
SALIDA DE VIDEO 

* C onecí able a monitor monocromo (Video comp.) 
asi como TV color PAL 
ALTAVOZ INCLUIDO 




















ünsidnnaa lodo, el.fiffindtt Amstratf« e*H*iitt. 
Gralicrt r Wíhdí Euperiwií. un («denle Baste jutfto 
con un sistema operativo RtÁWí subieran ser kre mpe- 
rfentiS * un éíito sanado. . 

-wrrtiJtJtt COMPETE" «f *S 


o 6 híc dH fcaswd « rifMlfc rnit 

|« Eaíitj totVillsjm *D«» 5ískí de M 
brts. COWfVTÍP #0*^ 


Aauftad. con m mnw CPC-^64 Ha flemoslraito ser un 
<JBip«n en saltas de bontiíud 

OJMí-ijI, -4 ft ACiíK’Ci e¿ 


i¡ Basic U una ver-On át Viírtjaft mejorad* ton 
terra^dns de gráfico!, jr sonido. a Si ¡«no ura M»de 

eSEXtC-fi-StlíAS Üi"í-3í■ , '?y~- r J* CtF _n_i 34 


Cn» «ve el Amstnrf prtpoteionara (arfas noches de 
insomnio ■> SincUtr. Accmn y íommodore. y pesadillas a 
Merwttchyj EntapÁ-u/ Ellft, S*n duda, las ingenieros 
Arratrid fc»n creado w «ramnllo» computador fami¬ 
liar e«i un mtreiole potería püí íeH«n. 


JNIDAD CENTRAL CON 64 K MAGNETOFONO Y MONITOR EN COLOR 


UNIDAD CENTRA! CON 64 K MAGNETOFONO Y MONITOR fN FOSFORO VERDE PV P 39 900 pt* 


Monitor en color o en fósforo verde incluido en el sistema. 
Magnetófono incorporado de alta velocidad {1.000 ó 2.000 baudios). 
Memoria standard de 64 K de RAM ampliables hasta 8.160 K y 32 K 
de ROM. 

Graffcos en alta resolución de hasta 640-200 píateles direccionables 
indtvtdual mente. 

Texto en pantalla de 20, 40 y 80 columnas por 25 lineas mediante 
un sencillo comando Basic 

Tres canales de sonido con siete octavas y salida slereo 
Basic extendido con funciones de Edición: Delete. Renumber, Auto. 
Trace. De lenguaje estructurado. If. Then. Else, While. Wend De 
control de Procesador: Every. After. De alta resolución: Plot. Draw 
etc. 

Tres modos de pantalla con una paleta de 27 colores y efectos de 
"flash" , 

Microprocesador Z80 {4 Mhz) con implementacion de CP/M 
74 teclas profesionales tipo “Qwerty" con bloque numérico y teclas 
para cursores. 

Lector de discos de 3" y 170 K Opcional con CP/M y LOGO incluidos 
en el sistema. 

Completo set de caracteres de 8 bits definibles por el usuario. 
32 teclas programables con cadenas de 32 caracteres. 


Ocho ventajas de trabajo definibles por el usuario en la pantalla del 
monitor 

Bus de Entrada/Salida para conexión a lectores de Discos Módems 
y todo tipo de comunicaciones. 

Port para impresora Paralelo Centronics. 

Posibilidad de direccionamiento y utilización de hasta 240 bloques 
de 16 K ROM 

Modulador opcional para utilización de T V. doméstica. 

Extenso soporte de Software con más de 100 títulos ya disponibles 
entre juegos, educativos, programas profesionales y lenguajes 
(Ensamblador. Pascal, etc.). 

Manual del Usuario, de referencia Basic del Programador, de Firnv 
ware y tutoríaI traducidos al castellano. 


Para mayor información: 
AMSTRAD 
Castellana. 1 79 
Tel. 270 43 28 
28016 MADRID 


Nombre*. 

Dirección. 






























